Private Sub Combo1_Click() MsgBox Combo1.TextEnd Sub
Private Sub Form_Load() Dim i As Long For i = 1 To 10 Combo1.AddItem i NextEnd Sub
Private Sub Combo1_Click() MsgBox Combo1.ListIndexEnd Sub