Resize Form Controls !!!!!!!!!!!!

[Josch]

I have ( as first shot ) a small class that resizes my controls in the main form of me vb.net app. I can use this stupit anchors from .net.
The only problem is that this class is a bit slow, not to much, but i think it could be better !
This is me challenge for everyone here in this forum to help me speed up this class. Or maybe someone has a much better idea.

This is the class (forget the error handling) :

Imports System.Drawing
Imports System.Convert
Imports System.Windows.Forms
 
Public Class clsResize
    Implements IDisposable
 
#Region " Declare private vars "
 
    Private blnDisposed As Boolean
    Private objFormSize As Size
    Private colControls As New Collection()
    Private Structure Properties
        Dim Left As Integer
        Dim Top As Integer
        Dim Width As Integer
        Dim Height As Integer
        Dim FontSize As Single
    End Structure
 
#End Region
 
 
 
#Region " Initialize and dispose "
 
    Public Sub New(ByRef frm As Form)
        ' initialize the resize class by collecting control properties
        Dim objControl As Control
        Dim stuCtrlProp As Properties
        ' store original form size
        objFormSize = frm.Size
        ' for controls who don't support all the properties resume on error
        On Error Resume Next
        For Each objControl In frm.Controls
            With stuCtrlProp
                .Left = objControl.Left
                .Top = objControl.Top
                .Width = objControl.Width
                .Height = objControl.Height
                .FontSize = objControl.Font.Size
            End With
            colControls.Add(stuCtrlProp, objControl.Name)
        Next
        ' clean up
        objControl = Nothing
        ' we made a new instance so set blnDisposed to false
        blnDisposed = False
    End Sub
 
    Public Sub Dispose() Implements IDisposable.Dispose
        ' clean up objects
        If Not blnDisposed Then
            objFormSize = Nothing
            colControls = Nothing
            blnDisposed = True
        End If
    End Sub
 
#End Region
 
 
 
#Region " Resize the from "
 
    Public Sub Resize(ByRef frm As Form)
        Dim dblRatioX As Double
        Dim dblRatioY As Double
        Dim intWinMax As Integer
        Dim objControl As Control
        Dim stuCtrlProp As Properties
        ' setup scaling ratios
        intWinMax = 40
        dblRatioY = 1.0# * (objFormSize.Height - intWinMax) / (frm.Height - intWinMax)
        dblRatioX = 1.0# * objFormSize.Width / frm.Width
        ' for comboboxes, timeres and other nonsizible controls resume on error next
        On Error Resume Next
        ' reposition and resize the controls
        For Each objControl In frm.Controls
            stuCtrlProp = CType(colControls.Item(objControl.Name), Properties)
            With stuCtrlProp
                objControl.SetBounds(ToInt32(.Left / dblRatioX), ToInt32(.Top / dblRatioY), ToInt32(.Width / dblRatioX), ToInt32(.Height / dblRatioY))
                objControl.Font = New Font(objControl.Font.Name, ToSingle(.FontSize / dblRatioX) + ToSingle(.FontSize / dblRatioX) Mod 2)
            End With
        Next
        ' clean up
        objControl = Nothing
    End Sub
 
#End Region
 
 
End Class