VB Code:
  1. Private Declare Function GetAsyncKeyState Lib "user32" _
  2.     (ByVal vKey As Long) As Integer
  3.     'The KeyAscii Of the right Mousbutton is
  4.     '     2 , of the Left one is 1