[aminesori]

(01-06-22, 01:21 AM)أبو خالد الشكري كتب : العفو ...

طيب جرب الكود التالي ، وإن شاء الله ينجح معك :

كود :

 Dim str1 As String = TextBox1.Text
       Dim str2 As String = TextBox2.Text

       Dim i1 As Integer = str1.IndexOf("06")
       Dim i2 As Integer = str2.IndexOf("06")

       If Not i1 = -1 Then
           Form1.Show()
       End If

       If Not i2 = -1 Then
           Form1.Show()
       End If

بارك الله فيك على المتابعة ولكن نجح ولكن يجب ان يكون الشرط على الخانة الاول والثانية من تكست بوكس هو الان يعمل على محتوى الكامل على التكست بوك 
وانا في اكتب رقم اخر يحتوي على رقم 06 يكون في الوسط