Private Type POINTAPI
  X As Long
  Y As Long
End Type
 
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, _
  lpPoint As POINTAPI) As Long
 
Private Sub Command1_Click()
 
  Dim Pt As POINTAPI
 
  Call ClientToScreen(Command1.hwnd, Pt)
  Load Form2
  With Form2
    .Left = Screen.TwipsPerPixelX * Pt.X
    .Top = Screen.TwipsPerPixelY * Pt.Y
    .Show
  End With
 
End Sub

Gruss,

Zardoz