'ausschnitt kopieren
Dim b2 As New Bitmap(mySize)
Dim g2 As Graphics
g2 = Graphics.FromImage(b2)
g2.DrawImage(b, New Rectangle(New Point(0, 0), mySize), New Rectangle( _
  myLocation, mySize), GraphicsUnit.Pixel)
 
blablabla.image = b2
g2.Dispose
g2 = Nothing

'der code von oben
 
blablabla.Image = b2.Clone
g2.Dispose
g2 = Nothing
b2.Dispose
b2 = Nothing