Private Declare Function SwapMouseButton Lib "User32" (ByVal bSwap As Long) As Long
Private Sub Command1_Click()
  Call SwapMouseButton(Option1.Value)
End Sub


Private Sub Form_Load()
  Option1.Caption = "Right"
  Option2.Caption = "Left"
End Sub