テキストボックスをマウスで移動するには？

NIKKOTUONG 2007-02-28 20:25:52 No: 135553

ＶＢでよく分からないことがありまして、質問しました。
現在、フォームの上にpanelを追加し、このpanel内にボタンをクリックするとテキストボックスを表示します。追加したテキストボックスをどれもマウスで移動するにはどうすればいいでしょうか？
複数テキストボックスを生成するためのスースは現在こう書いています
ーーーーーーーーーーーーー
Public Class Form1
    Friend WithEvents TextBox1 As New TextBox()

    Dim p  As Point

    Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick
        If e.Button = Windows.Forms.MouseButtons.Left Then
            p = e.Location

        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.TextBox1 = New System.Windows.Forms.TextBox
        TextBox1.Location = New Point(p.X, p.Y)
        Panel1.Controls.Add(TextBox1)
    End Sub
End Class
---------------------

kkkkk 2007-03-03 06:21:07 No: 135554

スースではなくソースでは？

ガッ 2007-03-03 06:30:00 No: 135555

うーん、DoDragDrop()から一連のドラッグドロップを調べてみるとか？
(手元に.netヶ無いので合っているかわかりませんが)