' 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
    If KeyCode = vbKeyReturn Then
        SendKeys "%{Down}", True
        Combo1.SetFocus
        Ausgewaehlt = Left(Combo1, 30)
        Call Suchen(Ausgewaehlt, Leerstring)
    End If
    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