Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        PictureBox1.DoDragDrop(DirectCast(sender, PictureBox), _
        DragDropEffects.Move)
    End Sub

 Private Sub Form2_DragDrop(ByVal sender As Object, ByVal e As _
   System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
        Dim pb As PictureBox = DirectCast(e.Data.GetData(GetType(PictureBox)), _
        PictureBox)
        pb.Location = Me.PointToClient(New Point(e.X, e.Y))
        Me.Controls.Add(pb)
    End Sub
    Private Sub Form2_DragEnter(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
        e.Effect = DragDropEffects.Move
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus