17/10/2005, 14:40
|
| | | Fecha de Ingreso: octubre-2005
Mensajes: 23
Antigüedad: 19 años, 6 meses Puntos: 0 | |
| prueba de esta forma
Private Sub Command1_Click()
For i = 0 To Combo1.ListCount - 1
If Combo1.Text = "dinora" Then
Exit Sub
Else
Combo1.ListIndex = Combo1.ListIndex + 1
End If
Next i
End Sub |