Office: (Office 2016) Unterformular schrumpfen

Hallo,
ich stehe gerade vor dem Problem, dass ich eine DB auf Rechnern mit verschiedener Auflösung laufen lasse.
Meine Lösung: Alle Steuerelemente um den Faktor 0,73 verkleinern, ebenso deren Position verrücken.

Code:

Public Sub Schrumpfen(Rufform As String)
 Dim a As Long, frm As Form, ctl As Control
    Select Case Rufform
        Case "Formular1": Set frm = Forms.frm_Formular
        Case "Formular2": Set frm = Forms.frm_Formular.ufoNameImHaFo              
    End Select
    Debug.Print "Schrumpfen Start ", Rufform, Now
    For Each ctl In frm
        If TypeName(ctl) = "Textbox" Then
            If ctl.FontSize = 10 Then ctl.FontSize = 8
            If ctl.FontSize = 16 Then ctl.FontSize = 12
        End If
        ctl.Width = ctl.Width * 0.73
        ctl.Height = ctl.Height * 0.73
        ctl.Top = ctl.Top * 0.73
        ctl.Left = ctl.Left * 0.73
    Next
    Set frm = Nothing
    Debug.Print "Schrumpfen Fertig", Rufform, Now
End Sub

Der erste Aufruf funktioniert, alle Textfelder werden verkleinert und verschoben.
Das Problem ist der zweite Aufruf, denn da sollen die Elemente des Unterformulars ebenfalls umgewandelt werden.
Rufe ich das Unterformular einzeln, also ohne Hauptformular auf, wird alles wie gewollt verschoben. Dann kann ich das Ufo dem "frm" zuweisen
Aber wie spreche ich die Controls des Ufo an, wenn das Hauptformular geladen ist?
Ich weiß, wie ich die einzelnen Textfelder im Ufo direkt aufrufe, aber da es so viele sind, würde ich lieber über die Controls gehen.
Gruß
Doming

 

Habe es herausgefunden:

Code:

Public Sub Schrumpfen(Rufform As String)
 Dim a As Long, frm As Form, ctl As Control
   Select Case Rufform
       Case "Formular1": Set frm = Forms.frm_Formular
       Case "Formular2": Set frm = Forms!frm_Formular.Form!ufoNameImHaFo.Form              
   End Select
   Debug.Print "Schrumpfen Start ", Rufform, Now
   For Each ctl In frm
       If TypeName(ctl) = "Textbox" Then
           If ctl.FontSize = 10 Then ctl.FontSize = 8
           If ctl.FontSize = 16 Then ctl.FontSize = 12
       End If
       ctl.Width = ctl.Width * 0.73
       ctl.Height = ctl.Height * 0.73
       ctl.Top = ctl.Top * 0.73
       ctl.Left = ctl.Left * 0.73
   Next
   Set frm = Nothing
   Debug.Print "Schrumpfen Fertig", Rufform, Now
End Sub

Funktioniert

Danke für die Aufmerksamkeit.