Изменение размера контрола вместе с формой

WebBrowser1.Anchor = AnchorStyles.Right Or AnchorStyles.Left

WebBrowser1.Anchor = AnchorStyles.Right Or AnchorStyles.Left Or AnchorStyles.Bottom Or AnchorStyles.Top
        Label1.Anchor = AnchorStyles.Right Or AnchorStyles.Left Or AnchorStyles.Bottom Or AnchorStyles.Top
        TextBox1.Anchor = AnchorStyles.Right Or AnchorStyles.Left Or AnchorStyles.Bottom Or AnchorStyles.Top
        Button1.Anchor = AnchorStyles.Left Or AnchorStyles.Bottom 'Or AnchorStyles.Top

Button1.Anchor = AnchorStyles.Bottom And AnchorStyles.Left And AnchorStyles.Right And AnchorStyles.Top
        WebBrowser1.Anchor = AnchorStyles.Bottom And AnchorStyles.Left And AnchorStyles.Right And AnchorStyles.Top

    Structure ctrFormControlSize
        Public Name As String
        Public Height As Double
        Public Width As Double
        Public Top As Double
        Public Left As Double
    End Structure
 
    Public Structure AddFromProperty
        Public FormName As String
        Public MyctrFormControlSize() As ctrFormControlSize
    End Structure
    Public MyAddFromProperty() As AddFromProperty
    Public Sub MyAddControl(ByVal c As Windows.Forms.Control, Optional ByRef MytmpConrtol() As ctrFormControlSize = Nothing)
 
        Dim tmpConrtolSize As ctrFormControlSize, i As Integer
        Dim addToColl As Boolean = False
        Dim x As Integer
        If IsNothing(MytmpConrtol) Then
 
            If IsNothing(MyAddFromProperty) Then
                x = 0
            Else
                x = MyAddFromProperty.Length
            End If
            ReDim Preserve MyAddFromProperty(x)
            MyAddFromProperty(x).FormName = c.Name
            MytmpConrtol = MyAddFromProperty(x).MyctrFormControlSize
            addToColl = True
            ReDim Preserve MytmpConrtol(0)
            If Not String.IsNullOrEmpty(c.Name) Then
                tmpConrtolSize.Name = c.Name
                tmpConrtolSize.Width = c.ClientSize.Width
                tmpConrtolSize.Height = c.ClientSize.Height
                MytmpConrtol.SetValue(tmpConrtolSize, 0)
            End If
        Else
            i = MytmpConrtol.Length
            ReDim Preserve MytmpConrtol(i)
            If Not String.IsNullOrEmpty(c.Name) Then
                tmpConrtolSize.Name = c.Name
                tmpConrtolSize.Width = MytmpConrtol(0).Width / c.Width
                tmpConrtolSize.Height = MytmpConrtol(0).Height / c.Height
                tmpConrtolSize.Left = MytmpConrtol(0).Width / c.Left
                tmpConrtolSize.Top = MytmpConrtol(0).Height / c.Top
                MytmpConrtol.SetValue(tmpConrtolSize, i)
            End If
        End If
        If c.Controls.Count <> 0 Then
            For Each c1 As System.Windows.Forms.Control In c.Controls
                MyAddControl(c1, MytmpConrtol)
            Next
        End If
        If addToColl Then
            MyAddFromProperty(x).MyctrFormControlSize = MytmpConrtol
        End If
    End Sub
    Sub MyResize(MyForm As Form)
        Dim FormControl As Control, i As Integer, x As Integer
        Dim tmpColConrtol As Control(), tmpSizeControl As ctrFormControlSize
        Dim FormWidth As Integer = MyForm.ClientSize.Width
        Dim FormHeight As Integer = MyForm.ClientSize.Height
        Dim MytmpConrtol() As ctrFormControlSize
        If Not IsNothing(MyAddFromProperty) Then
            x = GetFormID(MyForm)
            If x <> -1 Then
                MytmpConrtol = MyAddFromProperty(x).MyctrFormControlSize
                For i = 1 To MytmpConrtol.Length - 1
                    tmpColConrtol = MyForm.Controls.Find(MytmpConrtol(i).Name, True)
                    FormControl = tmpColConrtol(0)
                    tmpSizeControl = MytmpConrtol(i)
                    FormControl.SetBounds(FormWidth / tmpSizeControl.Left, FormHeight / tmpSizeControl.Top, FormWidth / tmpSizeControl.Width, FormHeight / tmpSizeControl.Height)
                Next i
            End If
        End If
    End Sub
    Private Function GetFormID(MyForm As Form) As Integer
        GetFormID = -1
        Dim i As Integer = 0
        Dim tmpFrmName As String = MyForm.Name
        If Not IsNothing(MyAddFromProperty) Then
            For i = 0 To MyAddFromProperty.Length - 1
                If MyAddFromProperty(i).FormName = tmpFrmName Then
                    GetFormID = i
                    Exit Function
                End If
            Next i
        End If
    End Function

        me.AutoSize = False
        MyAddControl(me)

 MyResize(Me)

tmpColConrtol = MyForm.Controls.Find(MytmpConrtol(i).Name, True)