Dim LastMouseX As Single, LastMouseY As Single
 
Private Sub Text_MouseDown(Index As Integer, Button As Integer, Shift As _
  Integer, X As Single, Y As Single)
         LastMouseX = X
         LastMouseY = Y
End Sub
 
Private Sub Text_MouseMove(Index As Integer, Button As Integer, Shift As _
  Integer, X As Single, Y As Single)
       If Button = vbLeftButton Then
             With Text(Index).Container
                 If Text(Index).MultiLine Then
                     'funktioniert es nicht
                 Else
                     .Move .Left - LastMouseX + X, .Top - LastMouseY + Y
                 End If
             End With
       End If
End Sub