' alle Controls im Frame1 ermitteln
Dim oControl As Control
Dim nTop As Single
Dim nLeft As Single
 
For Each oControl In Me.Controls
  If oControl.Container Is Frame1 Then
    ' Koordinate auf Form bezogen
    nTop = oControl.Top + Frame1.Top
    nLeft = oControl.Left + Frame1.Left
  End If
Next

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de