Private Sub GetControlPosOnForm(oControl As Object, nLeft As Single, nTop As _
  Single)
  On Error Resume Next
  If oControl.Container Is Nothing Then Exit Sub
  If Err.Number = 438 Then Exit Sub
  On Error GoTo 0
 
  nLeft = nLeft + oControl.Left
  nTop = nTop + oControl.Top
  GetControlPosOnForm oControl.Container, nLeft, nTop
End Sub

' 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 = 0: nLeft = 0
    GetControlPosOnForm oControl, nLeft, nTop
  End If
Next

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de