resize af kontroller og forms

jeg skal ha lavet det så en af mine kontroller resizer med når man resizer ens form
jeg har lavet det her som test men når jeg starter programmet så resizer den allerede min textbox så den fylder hele min form (måske endda mere?)
koden kommer her:

Private Sub Form_Load()
chkHeight = Text1.Height
chkWidth = Text1.Width
frmStartHeight = frmMain.Height
frmStartWidth = frmMain.Width
End Sub

Private Sub Form_Resize()


    If frmStartHeight = frmMain.Height And frmStartWidth = frmMain.Width Then

        'do nada

    Else

        If frmStartHeight < frmMain.Height Then
       
            frmNewHeight = frmMain.Height - frmStartHeight
           
            Text1.Height = chkHeight + frmNewHeight
            chkHeight = Text1.Height
           
            frmNewWidth = frmMain.Width - frmStartWidth
           
            Text1.Width = chkWidth + frmNewWidth
            chkWidth = Text1.Width
           
        End If
       
        If frmStartHeight > frmMain.Height Then
       
            frmNewHeight = frmStartHeight - frmMain.Height
           
            Text1.Height = chkHeight - frmNewHeight
            chkHeight = Text1.Height
           
            frmNewWidth = frmStartWidth - frmMain.Width
           
            Text1.Width = chkWidth - frmNewWidth
            chkWidth = Text1.Width
           
        End If

    End If


End Sub