Auto Complete combo Box（VB.NET Source Use API）

.SelectionStart = lngSelectedLength

Dim Temp As Integer Temp = lngMatchLength .SelectionLength = Temp

@#.Text = .Text & Right(.Items.Item(lngItemNum), lngMatchLength) .Tag = sTypedText

End If

ElseIf .Tag <> CStr(CB_LOCKED) Then

.Tag = .Text

End If

Call ReleaseWindow()

End With

Catch err As Exception

MsgBox(err.Message & err.StackTrace)

End Try

End Function