drag and drop (z formu na form)

Dim top_sur, left_sur As Integer
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Drag vbBeginDrag
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Drag vbEndDrag

End Sub

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move X, Y
Command1.Move X - Command1.Width / 2, _
Y - Command1.Height / 2

Command1.Left = left_sur
Command1.Top = top_sur
End Sub

Private Sub Form_Load()
top_sur = Command1.Top
left_sur = Command1.Left
End Sub

Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)
Command1.Visible = False
End Sub

Private Sub Form2.Picture1_DragDrop(Source As Control, X As Single, Y As Single)
Command1.Visible = False
End Sub