11/09/2005, 17:26
|
| | | Fecha de Ingreso: septiembre-2005
Mensajes: 76
Antigüedad: 19 años, 7 meses Puntos: 0 | |
| A ver si te sirve esta solucion...
Private Sub Command1_Click()
---For X = 0 To Combo1.ListCount - 1
------Combo1.ListIndex = X
------If Combo1.Text = Textoabuscar Then
---------Exit Sub
------End If
---Next
End Sub |