[AMAZ1972AMAZ]

السلام عليكم
ممكن تعديل على الكود بحيت عند Click  بالماوس فى التكسة بكس تظهر القائمة كاملة تحت التكست بكس ويتم الاختيار منها
الان الكود يخرج القائمة التى تبدأ بنفس الحرف عند الكتابة فى التكسة بكس    وهدا هو الكود ارجو التعديل علية لو امكن

Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles TextBox9.TextChanged

       Dim col As New AutoCompleteStringCollection

       col.Add("Normal")
       col.Add("Budget")
       col.Add("Emergency")
       col.Add("Shutdown")

       TextBox9.AutoCompleteSource = AutoCompleteSource.CustomSource
       TextBox9.AutoCompleteCustomSource = col
       TextBox9.AutoCompleteMode = AutoCompleteMode.Suggest

       Return


   End Sub