منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

On Error Resume Next
Dim F As String
F = InputBox("ادخل الكلمة المراد البحث عنها", "بحث")
If F = "" Then Exit Sub
RT.Find(F)
Txt.Text = " الكلمة موجودة "

ولا تنسونا من خالص الدعاء
واعذرونا ان قصرت