Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbKeyLButton Then
If X >= Text1.Left And X <= Text1.Left + Text1.Width And Y = Text1.Top + Text1.Height Then
Text1.Height = Y - Text1.Top
Text1.Width = X - Text1.Left
End If
End If
End Sub