[Mtaktak]

كود :

Private Sub Button1_MouseDown(sender As Object, e As MouseEventArgs) Handles Button1.MouseDown
       If e.Button = MouseButtons.Left Then
           Button1.DoDragDrop(Button1.ToString, DragDropEffects.Move)
           Panel1.Controls.Add(Bp11)
           Button1.Visible = True
       End If
   End Sub

السلام عليكم
حاولت بهذا الكود لنقل الزر من الفورم  الى البانيل ......  ولكن تفاجأت انه يختفي