[Aly El-Haddad]

بو عبدالله كتب :شكراًَ الف شكر عزيزي

الكود تمام التمام

لكن ممكن شرح الكود

لو ما فيه كلافه

على الرحب أخي الكريم،

كود :

Dim S As String = "Some string!"

أعتبرت أن المتغير الذي تريد حذف قيمته أسمه S و نوعه String و قيمته "Some string!"
في الحدث Form_Load و الذي ينطلق قبل ظهور الـForm وضعت الكود Me.KeyPreview = True حيث أن عند تغيير قيمة هذا الخاصية في الـForm إلى True.. تستجيب الأحداث KeyDown و KeyPress و KeyUp للفورم دون أحتياج أستخدامها في الـTextBox
في الحدث KeyUp للفورم و الذي ينطلق عند رفع الأصبع من على الزر
وضعت الكود If e.KeyCode = Keys.Escape Then ... End If و الذي يتأكد من أن الزر الذي تم الضغط عليه هو Escape ثم إظهار رسالة بالمتغير S قبل حذف قيمته ثم حذف قيمته بـS = Nothing ثم إظهار رسالة للتأكد من أن قيمته قد تم حذفها