Private Sub Picture1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
If State = 1 and Source.Name = "Label1 Then
Picture1.BackColor = vbWhite
Label1.Drag vbCancel
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.BackColor = vbBlue
Label1.Left = X
Label1.Top = Y
Label1.Drag vbBeginDrag
End Sub