Private Sub PictureBox2_MouseMove(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseMove
        'Unnötiges umweltgerecht entsorgt
        Dim b As Bitmap
        b = New Bitmap(Me.PictureBox3.Width, Me.PictureBox3.Height)
        Using g As Graphics = Graphics.FromImage(b)
            Dim tbmp As New Bitmap(PictureBox2.Width, PictureBox2.Height) _
              'temporäres Bitmap erzeugen
            PictureBox2.DrawToBitmap(tbmp, PictureBox2.Bounds) 'Inhalt der 
            ' Picturebox Hineinzeichnen
            g.DrawImage(tbmp, New Rectangle(0, 0, Me.PictureBox3.Width, _
              Me.PictureBox3.Height), _
                                    New Rectangle(e.X, e.Y, 30, 40), _
                                    GraphicsUnit.Pixel)
 
            Me.PictureBox3.Image = b
        End Using
    End Sub

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