VB Code:
Option Explicit
Dim XX As Integer
Dim YY As Integer
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
XX = X
YY = Y
End Sub
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Text1.MousePointer = vbSizeAll
Text1.Left = Text1.Left + X - XX
Text1.Top = Text1.Top + Y - YY
End If
End Sub
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.MousePointer = vbDefault
End Sub