Drag&drop creazione oggetto

Ciao,

ho un piccolo problemino sulla creazione degli oggetti a run time con immediato drag&drop.
Sono riuscito a creare l'oggetto, ad esempio un pulsante e quindi successivamente a muoverlo.
Il mio obiettivo sarebbe quello di effettuare l'immediato spostamento dell'oggetto nel momento in cui lo creo,è possibile?

 Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureTextBox.MouseDown
        Dim b As New Button
        b.Text = "Pulsante" & counter.ToString
        b.Location = New Point(PictureTextBox.Location.X, PictureTextBox.Location.Y)

        counter += 1
        AddHandler b.Click, AddressOf btns_click
        AddHandler b.MouseDown, AddressOf btns_MouseDown
        Me.Controls.Add(b)
    End Sub

    Private Sub btns_click(ByVal sender As Object, ByVal e As EventArgs)
        MsgBox(DirectCast(sender, Button).Text & " clicked")
    End Sub

    Private Sub btns_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)
        Dim btn As Button = DirectCast(sender, Button)
        btn.Capture = False

        Const WM_NCLBUTTONDOWN As Integer = &HA1
        Const HTCAPTION As Integer = &H2

        Dim msg As Message =
            Message.Create(btn.Handle, WM_NCLBUTTONDOWN,
                New IntPtr(HTCAPTION), IntPtr.Zero)

        Me.DefWndProc(msg)
    End Sub

Grazie

Se vuoi spostare il bottone ti servono gli eventi mouseup mousedown e mousemove e certamente non quel codice nel mousedown con cui non si capisce cosa volevi fare.

Non è chiaro cosa intendi con "immediato spostamento". Se vuoi che l'oggetto appena creato compaia in un punto diverso del form devi impostare le sue coordinate (Location) a quel punto. Mi sembra che il Drag & Drop c'entri poco. Comunque, per il Drag & Dropo, esistono gli appositi eventi DragEnter, DragLeave, DragDrop.
Infine, che cos'è PictureTextBox?

Ciao,
cerco di spiegarmi meglio, il mio obiettivo è di replicare un editor.
Ovvero premendo ad esempio su una PictureBox che ho creato ed ho chiamato "PicturTextBox", viene creata una nuova casella di testo che quindi viene trascinanata in un punto qualsiasi, cosi come avviene attualmente per l'editor del Visual Studio.

Quello che riesco a fare attualmente è invece creare una casella di testo e quindi spostarla, ma il mio intento oltre a questo è quello che ho indicato nel punto sopra, spero di aver scritto meglio la mia richiesta, se possibile crearla.

Grazie

Originariamente inviato da alex__ice

... in un punto qualsiasi ...

Il punto qualsiasi è quello indicato dalle coordinate X e Y che specifichi in questa istruzione:

b.Location = New Point(PictureTextBox.Location.X, PictureTextBox.Location.Y)

Originariamente inviato da Brontolo

Il punto qualsiasi è quello indicato dalle coordinate X e Y che specifichi in questa istruzione:

b.Location = New Point(PictureTextBox.Location.X, PictureTextBox.Location.Y)

Avevo già provato ad aggiungere questa riga, ma il mio desiderata è poterlo trascinare subito come in Visual Studio.

In questo modo prima creo l'oggetto nella posizione e poi lo posso spostare:

 Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureTextBox.MouseDown
        Dim b As New Button
        b.Text = "Pulsante" & counter.ToString
        b.Location = New Point(PictureTextBox.Location.X, PictureTextBox.Location.Y)
        b.AllowDrop = True
        counter += 1
        AddHandler b.Click, AddressOf btns_click
        AddHandler b.MouseDown, AddressOf btns_MouseDown
        Me.Controls.Add(b)
    End Sub

    Private Sub btns_click(ByVal sender As Object, ByVal e As EventArgs)
        MsgBox(DirectCast(sender, Button).Text & " clicked")
    End Sub

    Private Sub btns_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)
        Dim btn As Button = DirectCast(sender, Button)
        btn.Capture = False

        Const WM_NCLBUTTONDOWN As Integer = &HA1
        Const HTCAPTION As Integer = &H2

        Dim msg As Message =
            Message.Create(btn.Handle, WM_NCLBUTTONDOWN,
                New IntPtr(HTCAPTION), IntPtr.Zero)

        Me.DefWndProc(msg)
    End Sub

Che fatica però a capirsi! Allora si torna al Drag 'n Drop. Quindi leggi la documentazione sugli eventi che ti ho indicato due post fa.
Praticamente quando clicchi sul PictureTextBox (MouseDown) crei la Textbox e inizi il Drag.