Динамическое изменение размеров элементов управления вместе с формой

Dim w As Single, h As Single
 
Private Sub Form_Load()
h = Height: w = Width
End Sub
 
Private Sub Form_Resize()
On Error GoTo err
If Height > 2000 And Width > 3000 Then
   Call rsz(w, h)
   h = Height: w = Width
Else
   Height = 2000: Width = 3000
End If
Exit Sub
err: MsgBox err.Description
err.Clear
End Sub
 
Sub rsz(w, h)
Dim w1 As Single, h1 As Single
w1 = Width / w: h1 = Height / h
 
Dim Cont As Control
 
On Error Resume Next
    For Each Cont In Controls
      With Cont
          .Left = .Left * w1:
          .Top = .Top * h1:
         '.Width = .Width * w1:
         '.Height = .Height * h1
''.Move .Left * w1, .Top * h1, .Width * w1, .Height * h1
      End With
    Next
End Sub

Ts(nC) = cnt.Top

Private Sub Form_Resize()
'form4.BorderStyle=5' --- выставить
'циферки можно уточнить 
Command3.Left = Me.Width - Command3.Width - 180
Command2.Left = Command3.Left - Command2.Width - 60
Command1.Left = Command2.Left - Command1.Width - 60
Text2.Left = Command1.Left - Text2.Width - 60
Text1.Width = Text2.Left - 120
WB.Width = Me.Width - 120
WB.Height = Me.Height - (Text1.Top + Text1.Height) - 180 - 360
End Sub

Private Sub Form_Load()
Dim cnt As Control
 
        zapros = Text1.Text  '<<< Пиши код аккуратно, с отступами!
 
        FH = Me.Height
        FW = Me.Width
        
        FSH = Me.ScaleHeight
        FSW = Me.ScaleWidth
        
        n% = Me.Controls.Count
        
        ReDim cntList(1 To n%) As Control
        ReDim Ts(1 To n%) As Double
        ReDim Ls(1 To n%) As Double
        ReDim Hs(1 To n%) As Double
        ReDim Ws(1 To n%) As Double
        
        nC = 0
        
        On Error Resume Next '!!!
        
        For Each cnt In Me.Controls
        
            nC = nC + 1
        
            Set cntList(nC) = cnt
            Ts(nC) = cnt.Top
            Ls(nC) = cnt.Left
            Hs(nC) = cnt.Height
            Ws(nC) = cnt.Width
            
        Next
        
        On Error GoTo 0 '!!!
        
End Sub
Private Sub Form_Resize()
 
        SW# = Me.ScaleWidth
        SH# = Me.ScaleHeight
 
        Zw# = FSW / SW#
        Zh# = FSH / SH#
 
        On Error Resume Next '!!!
 
        For i% = 1 To nC
            cntList(i%).Width = Ws(i%) / Zw#
            cntList(i%).Left = Ls(i%) / Zw#
            cntList(i%).Height = Hs(i%) / Zh#
            cntList(i%).Top = Ts(i%) / Zh#
            
        Next i%
 
        On Error GoTo 0 '!!!
 
End Sub

With frm
    .Left = val(LoadLogSettingNew(.Name & "_left$", .Left))
    .Top = val(LoadLogSettingNew(.Name & "_Top", .Top))
    
    .Width = val(LoadLogSettingNew(.Name & "_Width", .Width))
    .Height = val(LoadLogSettingNew(.Name & "_Height", .Height))
 
End With

Dim sw#, SH#, ZW#, ZH#
Dim i As Integer, PerHeight As Single, Perwidth As Single
sw# = Me.ScaleWidth
        SH# = Me.ScaleHeight
 
        ZW# = (FSW / sw#) * 1.1
        ZH# = (FSH / SH#) * 1.2
On Error Resume Next
        For i% = 1 To nC
            cntList(i%).Width = ws(i%) / ZW#
            cntList(i%).Left = Ls(i%) / ZW#
            cntList(i%).Height = Hs(i%) / ZH#
            cntList(i%).Top = ts(i%) / ZH#
 
        Next i%
On Error GoTo 0

Dim SW As Single, SH#, ZW#, ZH#
Dim koefW As Single, koefH As Single
Dim i As Integer
SW = Me.ScaleWidth
        SH# = Me.ScaleHeight
        koefW = 0.06 + (Me.Width / SW)
        koefH = Me.Height / SH
        ZW# = (FSW / SW) * koefW
        ZH# = (FSH / SH#) * koefH
On Error Resume Next
        For i = 1 To nC
            cntList(i).Width = ws(i) / ZW#
            cntList(i).Left = Ls(i) / ZW#
            cntList(i).Height = Hs(i) / ZH#
            cntList(i).Top = ts(i) / ZH#
        Next i
On Error GoTo 0