'Key API-Funktion
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As _
  Integer
Public Const VK_RBUTTON = &H2
Public Const VK_LBUTTON = &H1
Public Const VK_MBUTTON = &H4
 
Public Function GetMouseButton() As Integer
'// Gibt gedrückten Mausbutton zurück
 
GetMouseButton = 0
If GetAsyncKeyState(VK_LBUTTON) And &H8000& Then GetMouseButton = 1
If GetAsyncKeyState(VK_RBUTTON) And &H8000& Then GetMouseButton = 2
 
End Function