Resizing window form

See more:

VB

My problem is that i am unable to resize the form control according to the form size.
I have a form which contains a textbox,a label and a button.On button click i need to open the same form in a particular size and i want all the controls of the form should be proportion with the form and the font inside the control should also in proportion.Can any one please suggest how to do that with code.Unable to solve this by using the anchor and dock property.My code

Private Sub Test_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim widthRatio As Single = Me.Size.Width / 300.0F
        Dim heightRatio As Single = Me.Size.Height / 300.0F
        Dim scale As New SizeF(widthRatio, heightRatio)
        Me.Scale(scale)
        For Each control As Control In Me.Controls
            control.Scale(scale)
            control.Font = New Font(control.Font.FontFamily,   control.Font.SizeInPoints * widthRatio * heightRatio)
        Next
    End Sub

here for width and height ration i have divided 300.0F because my original form is size(300,300),but here am not getting all the controls expand equally..
any suggestion is appreciated.

thanks
pallavi