Ayuda
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
If List1.List(i) = "4" Then ' El elemento que busques
MsgBox "El elemento que buscas está en la posición " & i
End If
Next i
End Sub
Private Sub Form_Load()
List1.AddItem "1"
List1.AddItem "2"
List1.AddItem "3"
List1.AddItem "4"
List1.AddItem "5"
List1.AddItem "6"
List1.AddItem "7"
List1.AddItem "8"
List1.AddItem "9"
End Sub
Dim i As Integer
For i = 0 To List1.ListCount - 1
If List1.List(i) = "4" Then ' El elemento que busques
MsgBox "El elemento que buscas está en la posición " & i
End If
Next i
End Sub
Private Sub Form_Load()
List1.AddItem "1"
List1.AddItem "2"
List1.AddItem "3"
List1.AddItem "4"
List1.AddItem "5"
List1.AddItem "6"
List1.AddItem "7"
List1.AddItem "8"
List1.AddItem "9"
End Sub