زر الماوس

بسم الله الرحمن الرحيم

تحية طيبة

يمكنك استخدام دالة SwapMouseButton من توابع API كما في المثال

Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long



Private Sub command1_click()

    ‘تحويل زر الماوس

    SwapMouseButton 1

    

End Sub



Private Sub command2_click()

    ‘إعادة التحويل

    SwapMouseButton 0



End sub