'Benötigt wird eine Textbox
Option Explicit
Private XPos As Integer
 
 
Private Sub Form_Load()
 
Me.ScaleMode = vbTwips
 
End Sub
 
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
 
XPos = X
 
End Sub
 
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
 
If Button = vbLeftButton Then
  Text1.Left = Text1.Left +  X - XPos
End If
 
End Sub