DragDrop

Private Sub Command1_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
X1 = X
Y1 = Y
End Sub

Private Sub Form_DragDrop(Source As Control, X As Single, _
Y As Single)
Source.Top = Y - Y1
Source.Left = X - X1
End Sub

Private Sub Label1_DragDrop(Source As Control, X As Single, _
Y As Single)
Source.Top = Label1.Top + Y - Y1
Source.Left = Label1.Left + X - X1
End Sub

Private Sub Picture1_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
X1 = X
Y1 = Y
End Sub