[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي محمد 
ضع هذه الدالة في كلاس الفورم 1 تحت دالة جلب البيانات

كود :

   Sub SearshFile()
       ListBox1.Items.Clear()
       Dim SQL = "Select * from  Custmer where NAMES like N'%" & TextBox1.Text & "%'"
       Dim ADP = New SqlClient.SqlDataAdapter(SQL, CLS_CON__.SQLCON)
       Dim DS = New DataSet
       ADP.Fill(DS)
       Dim DT = DS.Tables(0)
       For I = 0 To DT.Rows.Count - 1
           ListBox1.Items.Add(New MyList(DT.Rows(I).Item("NAMES"), DT.Rows(I).Item("ID")))
       Next

   End Sub

الان ننادي عليها في حدث تغيير المحتوى للتكست بوكس1

كود :

 Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
       SearshFile()
   End Sub