Public ListaNombres As String[] = ["marcelo", "malo", "martin", "manolo", "malolo"]
Public Sub Form_Open()
End
Public Sub cbxNombre_Change()
Dim nombre As String
Print cbxNombre.Text
cbxNombre.List.Clear()
For Each nombre In ListaNombres
If InStr(nombre, cbxNombre.Text) = 1 Then
Print "coincidencia es=" & nombre
cbxNombre.List.Add(nombre)
Endif
Next
Public Sub Form_Open()
End
Public Sub cbxNombre_Change()
Dim nombre As String
Print cbxNombre.Text
cbxNombre.List.Clear()
For Each nombre In ListaNombres
If InStr(nombre, cbxNombre.Text) = 1 Then
Print "coincidencia es=" & nombre
cbxNombre.List.Add(nombre)
Endif
Next