[AL_BRNS]

السلام عليكم

جرب التالي

كود :

Dim mouseX As Integer, mouseY As Integer

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   mouseX = X
   mouseY = Y
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Button = vbLeftButton Then
        Label1.Left = Label1.Left + X - mouseX
        Label1.Top = Label1.Top + Y - mouseY
   End If
End Sub

بالتوفيق