Public Sub MoveControl(oControl As Control, _
  Button As Integer, _
  Shift As Integer, _
  X As Single, Y As Single)
 
  Static OldX As Single
  Static OldY As Single
 
  If Not Button = 1 Then
    ' aktuelle Mausposition innerhalb
    ' des Controls merken
    OldX = X
    OldY = Y
  Else
    ' Wenn rechte Maus-Taste gedrückt wird
    ' Control an neue Mausposition verschieben
    With oControl
      .Move .Left + (X - OldX), .Top + (Y - OldY)
      .ZOrder
    End With
  End If
End Sub

Private Sub Form_Load()
  ' 5 weitere Labels laden und anzeigen
  For i = 1 To 100
    ' Label laden
    Load lblMove(i)
 
    With lblMove(i)
      ' Wichtig! Neues Label sichtbar machen!
      .Visible = True
    End With
  Next i
End Sub
 
Private Sub lblMove_MouseMove(Index As Integer, Button As Integer, Shift As _
  Integer, X As Single, Y As Single)
    MoveControl lblMove(Index), Button, Shift, X, Y
End Sub