[ناجي إبراهيم]

السلام عليكم...

يمكنك استعمال الحدث Click لتنفيذ مهمتين.

في قسم التصريحات العام للـ Form قم بتعريف متغير من النوع Boolean. مثلاً:

كود :

Private ButtonPressed As Boolean

في الحدث Click للزر استعمل كوداً كالتالي:

كود :

ButtonPressed = Not ButtonPressed
If ButtonPressed Then
    ' الكود الذي تريد تنفيذه عند ضغط الزر
Else
    ' الكود الذي تريد تنفيذه عند تحرير أو إطلاق الزر
End If

* ملاحظة: من أجل إعطاء تلميح بصري للمستخدم أن الزر شغال أو متوقف يمكن ضبط الخاصية Style للزر على Graphical لتغيير لونه حسب حالته، مثلاً:

كود :

ButtonPressed = Not ButtonPressed
If ButtonPressed Then
    Command1.BackColor = vbRed              ' إظهار الزر باللون الأحمر - يعمل
    ' الكود الذي تريد تنفيذه عند ضغط الزر
Else
    Command1.BackColor = vbButtonFace    ' استعادة اللون الأصلي للزر - متوقف
    ' الكود الذي تريد تنفيذه عند تحرير أو إطلاق الزر
End If

نرجو الاستفادة و السلام.