Private Sub Form_MouseMove(Button As Integer, _
  Shift As Integer, X As Single, Y As Single)
  Dim lMsg As Long
  Dim sFilter As String
 
  lMsg = X / Screen.TwipsPerPixelX
  Select Case lMsg
     Case WM_LBUTTONDOWN
     Case WM_LBUTTONUP
     Case WM_LBUTTONDBLCLK
            'Wie muss das hier heißen?
            'PopupMenu MnuPopUp(1)
            'oder wie? ^^Das funktioniert nicht wirklich
     Case WM_RBUTTONDOWN
     Case WM_RBUTTONUP
            PopupMenu MenuPopUp
     Case WM_RBUTTONDBLCLK
 
  End Select
End Sub