Hola me gustaria que me dijeras como podría hacer que cuando escriba en una caja de texto, me vaya a ese nombre que haya elegido, yo tengo el código pero no se que propiedad es, os lo paso:
Const LB_FINDSTRING = &H18F
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
Private Sub Text1_Change()
ListAnf.TabIndex = SendMessage(ListAnf.hWnd, LB_FINDSTRING, -1, ByVal Text1.Text)
End Sub
