Public Class Form1
'Ti serve una form con una label
Declare Auto Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Int32) As Int16
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
Dim cliccato As Boolean = True
Select Case cliccato
Case Is = GetAsyncKeyState(Keys.LButton)
Label1.Text = "Hai premuto il tasto Sinistro"
Case Is = GetAsyncKeyState(Keys.RButton)
Label1.Text = "Hai premuto il tasto destro"
Case Is = GetAsyncKeyState(Keys.MButton)
Label1.Text = "Hai premuto il tasto Centrale"
End Select
End Sub
End Class
Immagino si possa fare anche di meglio ma per quello che hai chiesto pare che così possa andare :-)
Spero, dal basso della mia schiappitudine, di esserti stato utile
Fumziona anche questo: