كود اضافة حدث عند الضغط على زر الفأرة الأيمن

ضع هذا الكود في الفورم

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 

IF BUTTON=2 THEN 

msgbox "الزر الأيمن للفأرة" 

END IF 

End Sub

قم باستبدال 

msgbox "الزر الأيمن للفأرة" 

بأي حدث تريده