ComboBox7.AddItem = TextBox5.Value
ComboBox7.AddItem = TextBox6.Value
ComboBox7.Clear
For c = 5 To 7: ComboBox7.AddItem T(1, c): Next c
Private Sub Listview1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim T(), c As Long
LCou = ListView1.ListItems(Item.Index).Tag '.ListSubItems(10).Text
T = CBL.PlgTablo.Rows(LCou).Resize(, 7).Value
For c = 1 To 7: Me("TextBox" & c).Text = T(1, c): Next c
ComboBox7.Clear
For c = 5 To 7: ComboBox7.AddItem T(1, c): Next c
'TextBox7.Value = Format(Me.TextBox7.Value, "hh:mm")
End Sub