Jan Bender
www.jan-bender.de

Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As _
      Int32) As UInt32
 
    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Activated
         Select True
            Case GetAsyncKeyState(Keys.LButton) > 0 : MessageBox.Show( _
              "Maustaste links")
            Case GetAsyncKeyState(Keys.RButton) > 0 : MessageBox.Show( _
            "Maustaste rechts")
        End Select
    End Sub
End Class

Jan Bender
www.jan-bender.de