CodeItBetter Programming Another VB Programming Blog

'Controls - How to Link a text box to a list box? So, as you type, it highlights any matching entries
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 Const LB_FINDSTRING = &H18F
 
Private Sub Text1_Change()
    List1.ListIndex = SendMessage(List1.hWnd, LB_FINDSTRING, -1, ByVal Text1.Text)
    List1.Visible = (List1.ListIndex >= 0)
End Sub
 
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 9 Then
        Text1.Text = List1.List(List1.ListIndex)
        Text1.SelStart = Len(Text1)
        KeyCode = 0
    End If
End Sub
 
Private Sub Text1_LostFocus()
    If (List1.ListIndex >= 0) Then
        Text1.Text = List1.List(List1.ListIndex)
        Text1.SelStart = Len(Text1)
    End If
End Sub