Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
  If Button = 1 'Nur auf die linke Maustaste reagieren (Rechte ist 2)
    If X = ?? And Y = ?? Then
      [...]
    End If
  End If
End Sub