[elgokr]

مفيش مشكلة

خد الكود دا كده

Dim a As String
Dim b As String

a = TextBox1.Text
b = InStr(TextBox2.Text, a)
If b Then
TextBox2.Focus()
TextBox2.SelectionStart = b - 1
TextBox2.SelectionLength = Len(a)
Else
MsgBox("No text Found!")
End If
For i = 0 To TextBox2.Lines.Length - 1
MsgBox(TextBox2.Lines(i))


وقم باضافته داخل
Form2_Load

متنساش تخلى قيمة TextBox1 و TextBox2
افتراضى من الخصائص لان المفروض اول ما تشغل البرنامج

هيعمل بحث تلقائى

وهاتلى قيمة الرسالة اللى هتظهر فى الصندوق

عشان اقدر افيدك المشكلة فين بظبط ونختصر 80% من التجارب