Сохранять позиции при увеличении и уменьшении окна

Option Explicit
Dim SW_old1 As Double, SH_old1 As Double 'начальная ширина и высота окна
Dim CtrSize() As Long ' массив для хранения начальных размеров и положения контролов
 
Const cLeft = 1
Const cTop = 2
Const cWidth = 3
Const cHeight = 4
 
Public Sub FormSize(Frm As Form, SW_old As Double, SH_old As Double, CtrSize() As Long)
  Dim i As Long, ctr As Control
 
  SW_old = Frm.ScaleWidth
  SH_old = Frm.ScaleHeight
  For Each ctr In Frm.Controls
    ReDim Preserve CtrSize(1 To 4, 0 To i)
    CtrSize(cLeft, i) = ctr.Left
    CtrSize(cTop, i) = ctr.Top
    CtrSize(cWidth, i) = ctr.Width
    CtrSize(cHeight, i) = ctr.Height
    i = i + 1
  Next
End Sub
Public Sub FormResize(Frm As Form, SW_old As Double, SH_old As Double, CtrSize() As Long)
  Dim kW As Double, kH As Double
  Dim i As Long, ctr As Control
  On Error Resume Next ' некоторые контролы не позволяют изменять свои размеры
  
  If Frm.WindowState <> vbMinimized Then
    kW = Frm.ScaleWidth / SW_old
    kH = Frm.ScaleHeight / SH_old
    For Each ctr In Frm.Controls
      ctr.Left = CtrSize(cLeft, i) * kW
      ctr.Top = CtrSize(cTop, i) * kH
      ctr.Width = CtrSize(cWidth, i) * kW
      ctr.Height = CtrSize(cHeight, i) * kH
      i = i + 1
    Next
  End If
End Sub
 
Private Sub Form_Load()
FormSize Me, SW_old1, SH_old1, CtrSize()
End Sub
 
Private Sub Form_Resize()
FormResize Me, SW_old1, SH_old1, CtrSize()
End Sub

Private Sub Form_Resize()
If Me.WindowState <> vbMinimized Then
Text1.Move 100, 100, Me.ScaleWidth - 200, Me.ScaleHeight - 300 - Command1.Height
Command1.Move Me.ScaleWidth \ 2 - Command1.Width \ 2, Text1.Height + 200
End If
End Sub