Private Sub Form_Resize() Text1.Move Text1.Left, Text1.Top, Text1.Parent.Width, Text1.Parent.Height End Sub