Option Explicit
Private Declare Function GetCursorPos Lib "user32" _
  (lpPoint As POINTAPI) As Long
 
Private Type POINTAPI
  X As Long
  Y As Long
End Type
 
Private Sub Picture1_MouseDown(Button As Integer, _
  Shift As Integer, X As Single, Y As Single)
 
  <font color=green>' Form2 als PopUp anzeigen</font>
  Load Form2
 
  <font color=green>' Mausposition ermitteln</font>
  Dim P As POINTAPI
  GetCursorPos P
 
  <font color=green>' Form2 positionieren</font>
  With Form2
    .Left = P.X * Screen.TwipsPerPixelX
    .Top = P.Y * Screen.TwipsPerPixelY
  End With
 
  <font color=green>' Form2 anzeigen</font>
  Form2.Show
End Sub