Private LastButton As Integer
 
Private Sub Label1_MouseDown(Index As Integer, Button As Integer, Shift As _
  Integer, X As Single, Y As Single)
 
  LastButton = Button
 
End Sub
 
Private Sub Label1_Click(Index As Integer)
 
  If LastButton = vbLeftButton Then
    MsgBox "Linke Maustaste"
  ElseIf LastButton = vbRightButton Then
    MsgBox "Rechte Maustaste"
  End If
 
End Sub

Gruss,

Zardoz