Dim bmpSource As New Bitmap(picBildSource.Image)'Hier wurde ein Bild vorher per 
' Code erzeugt
Dim g As Graphics = picBildTarget.CreateGraphics()'Hierher soll die Kopie hin
picBildTarget.Update()          
g.DrawImage(bmpSource, New Rectangle(0, 0, 200, 200), New Rectangle(200, 200, _
  400, 400), GraphicsUnit.Pixel)
g.Dispose()
bmpSource.Dispose()