Private Declare Function SHAutoComplete Lib "shlwapi" (ByVal hWnd As Long, _
  ByVal dwFlags As Long) As Long
 
Private Sub Combo1_Click()
Dim Ausgewaehlt As String
Dim Leerstring As String
    Text1.Visible = False
    Ausgewaehlt = Left(Combo1.Text, 30)
    Call Suchen(Ausgewaehlt, Leerstring)
End Sub
 
Private Sub Combo1_GotFocus()
    'Combo1.Text = ""
    Combo1.SelStart = 0
    Combo1.SelLength = 999
    'SendMessage Combo1.hWnd, &H14F, True, 0
End Sub
 
' Autovervollständigung...
Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer)
Static sTextOld As String
Dim I As Integer
Dim sPos As Integer
Dim Ausgewaehlt As String
Dim Leerstring As String
    With Combo1
        ' nur wenn sich die Eingabe geändert hat
        If sTextOld <> .Text Then
            For I = 0 To .ListCount - 1
                If .List(I) Like .Text + "*" Then
                    sPos = .SelStart
                    sTextOld = .Text
                    .Text = .List(I)
                    .SelStart = sPos
                    .SelLength = Len(.Text) - sPos + 1
                    Exit For
                End If
            Next I
        End If
    End With
End Sub