Creating a text editor

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

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