Option Explicit
 
Private CtPos() As Single, FrmBreite As Single, FrmHöhe As Single
 
Private Sub Form_Activate()
 
Dim Ctr As Object, C As Integer
 
FrmBreite = Me.ScaleWidth
FrmHöhe = Me.ScaleHeight
C = 0
For Each Ctr In Me.Controls
  If Not (TypeOf Ctr Is Timer Or TypeOf Ctr Is Menu) Then
    ReDim Preserve CtPos(3, C)
    With Ctr
    CtPos(0, C) = .Left
    CtPos(1, C) = .Top
    CtPos(2, C) = .Width
    CtPos(3, C) = .Height
    .Tag = C
    End With
    C = C + 1
  End If
Next Ctr
 
End Sub
 
Private Sub Form_Resize()
 
Dim Ctr As Object, Fkt1 As Single, Fkt2 As Single, Ix As Integer
 
If FrmBreite > 0 Then
  Fkt1 = Me.ScaleWidth / FrmBreite
  Fkt2 = Me.ScaleHeight / FrmHöhe
  For Each Ctr In Me.Controls
    If Not (TypeOf Ctr Is Timer Or TypeOf Ctr Is Menu) Then
      With Ctr
      Ix = .Tag
      .Move CtPos(0, Ix) * Fkt1, CtPos(1, Ix) * Fkt2, CtPos(2, Ix) * Fkt1
      If Not (TypeOf Ctr Is DriveListBox Or TypeOf Ctr Is ComboBox) Then
        .Height = CtPos(3, Ix) * Fkt2
      End If
      End With
    End If
  Next Ctr
End If
 
End Sub