Auto busqueda en combo

[mosquitoislero]

Hola spiderman78... Prueba con estos codigos. A mi me funcionó!

Código:

'******************autocompletar*********************************
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Combo3_KeyUp(KeyCode As Integer, Shift As Integer)  'AUTOCOMPLETAR
    Dim LenText As Long, ret As Long

    'Si los caracteres presionados están entre el 0 y la Z
If KeyCode >= vbKey0 And KeyCode <= vbKeyZ Then

    ret = SendMessage(Combo3.hWnd, &H14C&, -1, ByVal Combo3.TEXT)

If ret >= 0 Then
             LenText = Len(Combo3.TEXT)
             Combo3.ListIndex = ret
             Combo3.TEXT = Combo3.List(ret)
             Combo3.SelStart = LenText
             Combo3.SelLength = Len(Combo3.TEXT) - LenText

End If
End If
End Sub
'***************autocompletar*************************************