çift klik ile veri çağırırken tarih formatı

[serif_007]

Merhabalar

Listboxtan çift klik ile textbox ve comboboxlara veri çağırıyorum. Fakat tarihleri sayı olarak getiriyor.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox_ID = ListBox1.List(ListBox1.ListIndex, 0) 'ListBox'a tıkladığımızda değerleri textbox'lara alıyoruz.
TextBox1 = ListBox1.List(ListBox1.ListIndex, 1)
ComboBox1 = ListBox1.List(ListBox1.ListIndex, 2)
ComboBox2 = ListBox1.List(ListBox1.ListIndex, 3)
TextBox4 = ListBox1.List(ListBox1.ListIndex, 4)
ComboBox3 = ListBox1.List(ListBox1.ListIndex, 5)
ComboBox4 = ListBox1.List(ListBox1.ListIndex, 6)
TextBox15 = ListBox1.List(ListBox1.ListIndex, 7)
TextBox8 = ListBox1.List(ListBox1.ListIndex, 8)
TextBox16 = ListBox1.List(ListBox1.ListIndex, 9)
TextBox10 = ListBox1.List(ListBox1.ListIndex, 10)
TextBox11 = ListBox1.List(ListBox1.ListIndex, 11)
ComboBox5 = ListBox1.List(ListBox1.ListIndex, 12)
TextBox13 = ListBox1.List(ListBox1.ListIndex, 13)
TextBox14 = ListBox1.List(ListBox1.ListIndex, 14)

örneğin listbox1 tarih formatında olmalı. kodu nasıl düzeltmeliyim ?

 

[Mdemir63]

Selamlar

bu şekilde dener misiniz.

TextBox1.Value = FormatDateTime(ListBox1.List(ListBox1.ListIndex, 1), vbShortDate)