Dim gPB1 As System.Drawing.Graphics
        Dim gmemPB1 As System.Drawing.Graphics
        Dim gbmpPB1 As System.Drawing.Bitmap
 
        gPB1 = PictureBox1.CreateGraphics
        gbmpPB1 = New Bitmap(PictureBox1.Size.Width, PictureBox1.Size.Height)
        gmemPB1 = Graphics.FromImage(gbmpPB1) 'Bild im Speicher
 
        gmemPB1.DrawRectangle(New Pen(Color.Red), New Rectangle(1, 1, 100, 100))
 
        gPB1.DrawImage(gbmpPB1, 0, 0) 'Speicher zurückschreiben

      gPB1.DrawImage(gbmpPB1, 0, 0)
      gPB2.DrawImage(gbmpPB2, 0, 0)