proplem in Resize code

I`ve got a problem with the code re-size the window with the tools
This code works slowly, and marked the piece I want it to work faster than the piece and thank you
Note: The source code is a Class and is being recalled in the two events

Public HeightProportions As Double
    Public WidthProportions As Double
    Public TopProportions As Double
    Public LeftProportions As Double


    Public Structure ControlMetrix
        Dim HeightProportions As Double
        Dim WidthProportions As Double
        Dim TopProportions As Double
        Dim LeftProportions As Double

    End Structure
    Public ControlMetrix1() As ControlMetrix

    Public Sub ControlResize(ByRef FormName As System.Windows.Forms.Form)

        On Error Resume Next

        With FormName
            If .WindowState = System.Windows.Forms.FormWindowState.Minimized Then Exit Sub
            TopProportions = .Top
            LeftProportions = .Left
            HeightProportions = .Height
            WidthProportions = .Width


            For a As Integer = 0 To .Controls.Count - 1

                With .Controls(a)
                    .Top = HeightProportions * ControlMetrix1(a).TopProportions
                    .Left = WidthProportions * ControlMetrix1(a).LeftProportions
                    .Height = HeightProportions * ControlMetrix1(a).HeightProportions
                    .Width = WidthProportions * ControlMetrix1(a).WidthProportions
                End With
            Next a

        End With

    End Sub

    Public Sub GetHandleCreated(ByRef FormName As System.Windows.Forms.Form)

        On Error Resume Next

        With FormName

            TopProportions = .Top
            LeftProportions = .Left
            HeightProportions = .Height
            WidthProportions = .Width

            ReDim ControlMetrix1(.Controls.Count() - 1)

            ReDim ControlMetrix1(.Controls.Count - 1)

            For x As Integer = 0 To .Controls.Count - 1

                With .Controls(x)
                    ControlMetrix1(x).TopProportions = (.Top / HeightProportions)
                    ControlMetrix1(x).LeftProportions = (.Left / WidthProportions)
                    ControlMetrix1(x).HeightProportions = (.Height / HeightProportions)
                    ControlMetrix1(x).WidthProportions = (.Width / WidthProportions)
                End With

            Next x

        End With

    End Sub

1:  Private Sub MainForm_HandleCreated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.HandleCreated
        On Error Resume Next

        ResizeMetrix.GetHandleCreated(Me)
    End Sub

2: Private Sub MainForm_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        On Error Resume Next

        ResizeMetrix.ControlResize(Me)
    End Sub