Public Class Form1
 
   Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
     Handles Me.Load
      Dim f As New Form2
      f.Show()
   End Sub
 
   Private Sub PictureBox1_GiveFeedback(ByVal sender As System.Object, ByVal e _
     As System.Windows.Forms.GiveFeedbackEventArgs) Handles _
     PictureBox1.GiveFeedback
      e.UseDefaultCursors = False
      Select Case e.Effect
         Case DragDropEffects.Copy
            Windows.Forms.Cursor.Current = Cursors.PanEast
         Case DragDropEffects.None
            Windows.Forms.Cursor.Current = Cursors.No
      End Select
 
   End Sub
 
   Private Sub PictureBox1_MouseDown(ByVal sender As System.Object, ByVal e As _
     System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
      Dim p As PictureBox = CType(sender, PictureBox)
      p.DoDragDrop(p.Image, DragDropEffects.Copy)
   End Sub
 
End Class

Public Class Form2
 
   Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
      ' WICHTIG! Sonst funktioniert es nicht...
      Me.PictureBox1.AllowDrop = True
   End Sub
 
   Private Sub PictureBox1_DragOver(ByVal sender As Object, ByVal e As _
     System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragOver
      e.Effect = DragDropEffects.Copy
   End Sub
 
   Private Sub PictureBox1_DragDrop(ByVal sender As System.Object, ByVal e As _
     System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragDrop
      Dim p As PictureBox = CType(sender, PictureBox)
      Dim i As Image = CType(e.Data.GetData(DataFormats.Bitmap, True), Image)
 
      p.Image = i
   End Sub
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control