Option Explicit
Dim x1 As Long
Dim y1 As Long
 
Private Sub lblObject_MouseDown(Index As Integer, Button As Integer, Shift As _
  Integer, X As Single, Y As Single)
 
x1 = X
y1 = Y
 
End Sub
 
Private Sub lblObject_MouseMove(Index As Integer, Button As Integer, Shift As _
  Integer, X As Single, Y As Single)
 
If Button = 1 Then       
   lblObject(Index).Left = lblObject(Index).Left + (X - x1)
   lblObject(Index).Top = lblObject(Index).Top + (Y - y1)        
End If
End Sub

?(oo)?