Private Sub Form_Load()

   Me.ScaleMode = vbUser

   Me.ScaleHeight = 100000

   Me.ScaleWidth = 100000



   Dim ctr As Control

   Dim T(1 To 5) As String

   

   For Each ctr In Me.Controls

      T(1) = CStr(ctr.Left)

      T(2) = CStr(ctr.Top)

      T(3) = CStr(ctr.Width)

      T(4) = CStr(ctr.Height)

      T(5) = CStr(Me.Width / ctr.FontSize)

      ctr.Tag = Join(T, ";")

   Next

End Sub



Private Sub Form_Resize()

   Dim T As Variant

   Dim ctr As Control

   

   If Me.Height < 600 Then

      Me.Height = 600

   End If



   Me.ScaleHeight = 100000

   Me.ScaleWidth = 100000

   

   On Error Resume Next



   For Each ctr In Me.Controls

      T = Split(ctr.Tag, ";")

      With ctr

         .Left = Val(T(0))

         .Top = Val(T(1))

         .Width = Val(T(2))

         .Height = Val(T(3))

         'mit der nachfolgenden Zeile kann auch die Schrift angepasst werden:

         '.FontSize = Me.Width / Val(T(4))

      End With

   Next

End Sub