DragDropによるコントロール？の移動

環境/言語:[windowsXP, vb.net2003]
分類:[.NET]

こんにちは。趣味で申し訳ないのですがVB.NETで簡易ゲームを作っている者です。

pictureBox等のコントロールを　ドラッグドロップでフォーム内を移動させる
ということをやってみたくていろいろ探しているのですがツリービューや
リストボックス間のファイルなどの移動の仕方ばかり見つかってなかなか上手くいきません(汗)フォーム内で　コントロール等をドラッグドロップしたり出来るものなのでしょうか？宜しければ何か手掛かりを授けてはいただけないでしょうか。
_(。_。)_　よろしくお願いいたします。簡単そうな質問で恐縮です。プログラム初心者なもので；

> pictureBox等のコントロールを　ドラッグドロップでフォーム内を移動させる
> ということをやってみたくていろいろ探しているのですがツリービューや

こんにちは。

簡単に行うには下記のような方法があると思います。


Private sizDragCenter As Size = Size.Empty

Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
　　If e.Button = MouseButtons.Left Then
　　sizDragCenter = New Size(e.X, e.Y)
　　End If
End Sub

Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
　　If e.Button = MouseButtons.Left Then
　　PictureBox1.Location = Point.op_Subtraction(Me.PointToClient(Cursor.Position), sizDragCenter)
　　End If
End Sub

Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
　　sizDragCenter = Size.Empty
End Sub

ありがとうございますぅ〜。早速試してみようと思います。アドバイス、
大感謝です　(^^)

じょにです。いままでプログラムらしいプログラムいじったことがなく、ヒントを捜し求めて彷徨いまくっていたため大きなヒントになる技を授けていただいた気分で感動です。出来ました(´；ω；｀)ほんとにありがとうございました。二度も感謝、失礼しましたああぁぁぁ！