Подогнать размеры контролов под форму

Option Explicit
Dim M As Byte
Private Sub Winding(Ar As Object, ByVal X As Long, M As Byte, ByVal W As Long)
    Dim i As Long, N As Long, Lw As Double, Max As Double
    M = M + 3
    N = M * 2
    Lw = (X - W * M) / (M * 2)
    Ar(0).Caption = 0
    Do Until Max >= Me.Width
        Ar(0).Width = Lw
        For i = 1 To N - 1
            Ar(i).Caption = i
            Ar(i).Width = Lw
            If i Mod 2 Then
                Ar(i).Move (Ar(i - 1).Left + Lw)
            Else
                Ar(i).Move (Ar(i - 1).Left + (Lw + W))
            End If
            Ar(i).Visible = True
        Next
    Max = Ar(N - 1).Left + Ar(N - 1).Width
    Lw = Lw + 1
    Loop
    'Print Me.Width, Ar(N - 1).Width + Ar(N - 1).Left, Ar(0).Width, Ar(N - 1).Width
End Sub
Private Sub Form_Click()
    Dim i As Long, lbLeft As Long
    lbLeft = Label2.Width
    Winding Label1, Me.Width, M, lbLeft
End Sub
Private Sub Form_Load()
    Dim i As Long
    Label1(0).Left = 0: Label1(0).BorderStyle = 1
    Label1(0).BackColor = vbBlue: Label1(0).ForeColor = vbWhite
    Label2.Visible = False
    M = 6
    For i = 1 To M * 3
        Load Label1(i)
    Next
End Sub