'Put this code in module section Public Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long 'Change caption property of button to " Swap The Button " and then put this code in form. Private Sub Command1_Click() If Command1.Caption = "Swap The Button" Then t& = SwapMouseButton(bSwap = False) Command1.Caption = "Release" Else t& = SwapMouseButton(bSwap = True) Command1.Caption = "Swap The Button" End If End Sub