Private Sub Command1_Click()
Text1.Text = List1.ListCount
Text2.Text = List1.List(List1.ListIndex)
Text3.Text = List1.ListIndex
End Sub
Private Sub Form_Load()
With List1
.AddItem ("A")
.AddItem ("BB")
.AddItem ("CCC")
.AddItem ("DDDD")
.AddItem ("EEEEE")
.AddItem ("FFFFFF")
.AddItem ("GGGGGGG")
End With
End Sub