Public Sub Initialize()
  'Initialisieren
 
  Dim oControl As Control
  Dim sControlName As String
  Dim iFontSize As Single
  Dim lTag As Long
 
  Dim mcol_SSTAB  As Collection
  Set mcol_SSTAB = New Collection
  ...
  'Alle Controls durchlaufen und Eigenschaften speichern
  For Each oControl In oForm_Now.Controls
    On Error Resume Next
    If oControl.left < 0 Then
       mcol_SSTAB.Add oControl                  ' Merken
       oControl.left = oControl.left + 750000   ' verschieben
    End If
    With oControl
 
 
Public Sub DoResize()
  'Etwaige Fehler wie bei Timern usw. übergehen
  On Error Resume Next
 
  Dim oControl As Control
  Dim sngFaktor_Height As Single
  Dim sngFaktor_Width As Single
  Dim sngFaktor_FontSize As Single
  Dim sControlName As String
 
  Dim mcol_SSTAB As Collection
  Set mcol_SSTAB = New Collection
  ...
  'Alle Controls durchlaufen und der Größe nach anpassen
  For Each oControl In oForm_Now.Controls
      If oControl.left < 0 Then
         mcol_SSTAB.Add oControl
      End If
      sControlName = oControl.name
      sControlName = sControlName & CStr(oControl.Index)
      ...
  Else
    DoResize_First False
  End If
  For Each oControl In mcol_SSTAB
      oControl.left = oControl.left - 75000
  Next
 
 
'Ursprungszustand wieder herstellen
Public Sub DoResize_First(ByVal bWithForm As Boolean)
  'Etwaige Fehler wie bei Timern usw. übergehen
  On Error Resume Next
 
  Dim mcol_SSTAB As Collection
  Set mcol_SSTAB = New Collection
 
  Dim oControl As Control
  ....
  'Alle Controls durchlaufen und der Größe nach anpassen
  For Each oControl In oForm_Now.Controls
 
      If oControl.left < 0 Then
         mcol_SSTAB.Add oControl
      End If
 
      sControlName = oControl.name
      sControlName = sControlName & CStr(oControl.Index)
  ....
  Next
 
  For Each oControl In mcol_SSTAB
      oControl.left = oControl.left - 75000
  Next
 
  'zu guter Letzt Größe der Form wieder herstellen
  If bWithForm Then
   oForm_Now.Height = oForm_First.Height
   oForm_Now.Width = oForm_First.Width
  End If
End Sub