Rightclick event

Prøv:

Private Sub Button1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (Button = 2) Then
MsgBox "Du højerklikkede på mig"
End If
End Sub

Private Sub Form1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        msgbox "Venstre knap"
    End If
    If Button = 2 Then
        msgbox "Højer knap"
    End If
End Sub

------------------

Måske kan du også bare ændre Button1 til Button2 i din egen sub.

Takker ;-)