[elgokr]

للاسف اخى YousefOkasha

فالموضوع الذى تطلب بخصوصه لا يدل الا على عمل شئ

تخص مراقبة الخصوصية والتعامل بطريقة غير مباشرة

ولكن ليعم الفائدة من حيث السؤال نظرياً للجانب الايجابي

كل الفكرة هو كتابة كود التحقق داخل  KeyPress

وليكن ان يكون التالى

كود :

           Dim Search As String
           Dim Where As Object
           Search = InputBox("YousefOkasha")
           Where = InStr(TextBox1.Text, Search)
           If Where IsNot Nothing Then
               MsgBox("Hi")
           End If

بحيث مع كل حرف يكتب بمجرد تكتمل الجمل او تتواجد فى الـ TextBox

سيقوم بعرض الرسالة Hi

الى هنا قد عممت الفائدة بالايجابي

ولكن لا يمكننى الراد بافادة اكثر من ذلك

فطريقة استخدام الكود عائد اليك

فانا غير مسؤل فى الاستخدام فيما لا يرضي الله

تحياتى لك

وتمنياتى لك التوفيق