Dim bigimage As Image = ...
Dim partimage As New Bitmap(100, 100)
Using g As Graphics = Graphics.FromImage(partimage)
Dim dest As New Rectangle(0, 0, 100, 100)
Dim src As New Rectangle(150, 150, 100, 100)
g.DrawImage(bigimage, dest, src, GraphicsUnit.Pixel)
End Using