Article ID: 181131
Article Last Modified on 3/11/2005
Combo1.List(Combo1.ListIndex)
Option Explicit
Dim x
Private Sub Form_Load()
For x = 1 to 8
Combo1.AddItem "Item" & x
Next
End Sub
Private Sub Combo1_Click()
MsgBox "Text: " & Combo1.Text & ", ListIndex: " & _
Combo1.ListIndex
End Sub
Additional query words: wince wce vbce evb vbce6
Keywords: kbtoolkit kbprb KB181131