Déplacer et remplacer un objet à l'infini en VB

Bonjour,

Je travaille en se moment sur une application "simple" à utiliser, mais pas autant à programmer, voici le sujet puis mon problem :

Sur mon application, il est possible de déplacer des picturbox ayant la forme d'un cube(minecraft dans ce cas, en 2D)
jusque l, aucun sousis;

Ici, sa devien plus dificil, car j'ais mis un panel en guise de "boite à outil" dans l'interface, et le but serait que lorsque l'ons prend un "bloc" pour le déposer dans le décor, un autre le remplace, comme en dans l'interface en VB, quand on prend un bouton, une picturbox,... l'objet est déplacable à l'infini...

Voici le code de ma picturbox qui est déplacable :

Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        Dim lHwnd As Int32
        lHwnd = PictureBox1.Handle
        If lHwnd = 0 Then Exit Sub
        ReleaseCapture() 'A été déclarer
        SendMessage(lHwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&) ' A été déclarer
    End Sub

Et voici le code pour redoubler un objet (que je connais, mais dont je n'arrive pas à utiliser si c'est le bon code pour ça pour mon programme):

 Private Sub PictureBox1_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox1.Click
        Dim bloc1 As New PictureBox()
        bloc1.Image = PictureBox1.Image 'c'est donc la même image que la "vrai"
        Me.Panel1.Controls.Add(bloc1)
        bloc1.Show()

    End Sub

Voilà :D
Merci d'avoir pris la peine de lire un si gros message, mais j'ai chercher partout, et j'ai pas trouver...
Cordialement VANAUR