Creating a text editor

I want to create a simple text editor. My problem is this: When I maximize the text editor, the text box does not resize,it stays the same size as before. How can I make it resize to stay the same size as the screen?

Put this in the Resize() event of the Form.

Code:

---

Private Sub Form_Resize()
    Text1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub

---