Option Explicit
 
Private Declare Function ClientToScreen Lib "user32" ( _
  ByVal hwnd As Long, _
  lpPoint As POINTAPI) As Long
 
Private Type POINTAPI
  x As Long
  y As Long
End Type

Private Sub Picture1_Click()
  ' Position ermitteln
  Dim P As POINTAPI
 
  ClientToScreen Picture1.hwnd, P
 
  ' 2. Form laden und positionieren
  Load Form2
  Form2.Move P.x * Screen.TwipsPerPixelX, _
    P.y * Screen.TwipsPerPixelY
 
  Form2.Show
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de