Resizing problemm.. need help plz

I have text box that is the size of a form...

i want the textbox to still be the full size of the form when i resize the form... maximize the for etc...

please can anyone show me how...

much appreciated.. thanks

Code:

---

Private Sub Form_Resize()
If Me.WindowState <> 1 Then
Text1.Left = Me.Left
Text1.Top = Me.Top
Text1.Width = Me.ScaleWidth
Text1.Height = Me.ScaleHeight
End If
End Sub

---

Have FuN!

thanks