Cara ngubah fungsi klik pada mouse dgn VB

Tulisan ini adalah tulisan pertama saya neeehhh….maklum2 yah klo tulisan cuma dikit…..m@sih Beginer…..nehhh….udah simak aja codingnya yah…..

’sebelumnya declarasiin dulu SwapMouseButton-nya
Private Declare Function SwapMouseButton Lib “user32″ (ByVal bSwap As Long) As Long
Private Const PENCETAN1 = &H0&
Private Const PENCETAN2 = &H100&

‘ini coding buat di command1
Private Sub Command1_Click()
SwapMouseButton PENCETAN2

End Sub

‘ini coding buat di command2
Private Sub Command2_Click()
SwapMouseButton PENCETAN1
End Sub