Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.Button1.AllowDrop = True
Me.Button2.AllowDrop = True
End Sub
' المسحوب '
Private Sub Button1_DragEnter(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles Button1.DragEnter
e.Effect = DragDropEffects.Move
End Sub
Private Sub Button1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
sender.DoDragDrop(sender, DragDropEffects.Move)
End Sub
' المفلوت عليه '
Private Sub Button2_DragEnter(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles Button2.DragEnter
e.Effect = DragDropEffects.Move
End Sub
Private Sub Button2_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles Button2.DragDrop
If e.Data.GetData(GetType(Button)) Is Me.Button1 Then
sender.Hide()
e.Data.GetData(GetType(Button)).Hide()
End If
End Sub
End Class
لأني بصراحة لا أفهم شئ في السحب والأفلات 
