Option Explicit
 
Dim xPos As Single
Dim yPos As Single
 
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
  If Source Is Text1 Then
    <font color=green>' Label mit verschieben</font>
    Dim xNeu As Single
    Dim yNeu As Single
    Dim xDif As Single
    Dim yDif As Single
 
    xNeu = X - xPos
    yNeu = Y - yPos
 
    <font color=green>' Differenz zur ursprünglichen Position berechnen</font>
    xDif = (xNeu - Text1.Left)
    yDif = (yNeu - Text1.Top)
 
    <font color=green>' Jetzt Label um die Differenz verschieben</font>
    Label1.Left = Label1.Left + xDif
    Label1.Top = Label1.Top + yDif
 
    <font color=green>' Jetzt TextBox verschieben</font>
    Text1.Move xNeu, yNeu
  End If
End Sub
 
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
  xPos = X: yPos = Y
  Text1.Drag 1
End Sub