منع اللصق في الحقول

منع اللصق في الحقول

السلام عليكم
طلب منى اكتر من مرةكود لمنع اللصف في التكست بوكس
وكان الرد عند السؤال على هذا الأمر هذا الكود

Private Sub Timer1_Timer()
Clipboard.Clear
End Sub

ولكن هذا سيجعلك لاتستطيع نسخ اي شيئ أثناء عمل البرنامج أو بمعني أدق طالما ان التايمر شغال
ولذلك فكرت في حل اخر والحمد لله اشتغل معايا تمام

وهو :
هنحط تايمر على الفورمة ونحط فيه الكود السابق عادي جدا زي كده

Private Sub Timer1_Timer()
Clipboard.Clear
End Sub
ونخلي خاصية Enabled قيمتها False
ونيجي في حدث الـ GotFocus الخاص بالتكست بوكس ونحط الكود كده

Private Sub Text1_GotFocus()
Timer1.Enabled = True
End Sub
وبعدين نيجي في حدث LostFocus الخاص بنفس التكست بوكس ونضع الكود كده

Private Sub Text1_LostFocus()
Timer1.Enabled = False
End Sub
وبكده لما يجي يحاول يكتب في التكست بوكس هيشتغل التايمر ويمسح الموجود في الحافظة بتاعت الويندوز وبالتالي مايبقاش في حاجة يقدر المستخدم يحطها وتفشل عملية النسخ
ولما يشيل المؤشر من التكست بوكس هيتنفذ الكود التاني واللي بدوره هيقوم بوقف التايمر
وبكده يتم منع اللصق داخل التكست بوكس فقط بينما تقدر تنسخ وتلص داخل او خارج البرنامج بشكل طبيعي جدا
وماننساش طبعا نعطي للتايمر قيمة في الـ Interval علشان يطبق الكود
أتمنى يكون الموضوع سهل

لماذا كانت الاستفادة من موضوعات البيزك صعبة هكذا

هل هناك سبب لذلك غير جهلنا؟