วิธีทำ AutoComplete Combobox ใน VB.net

การทำ AutoComplete คือการทำโฟกัสให้โปรแกรมเลือกข้อความที่เราใส่ไว้ในรายการของ Combobox โดยอัตโนมัตินั่นเอง
มีวิธีการดังนี้ครับ
ผมนำเสนอทั้งแบบเขียน Source Code และแบบกำหนดค่าเองครับ

'เพิ่มเติมอีกนิดโค้ดสำหรับตรวจสอบหากค่านั้นไม่ได้อยู่ในรายการของ Combobox นั้นๆ


    Private Sub Combobox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Combobox1.LostFocus
        CheckComboList(Combobox1, "MONTH")
    End Sub

    Private Function CheckComboList(ByVal ComboBox_To_Check As ComboBox, ByVal Description As String) As Boolean
        Dim checkCbo As Boolean = False

        For Each item In ComboBox_To_Check.Items()
            If ComboBox_To_Check.Text = item.ToString Then
                checkCbo = True
            End If
        Next
        If checkCbo = False Then
            MsgBox("ERR: Please Check item in " & Description)
        End If
    End Function