Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.PictureBox1.Load("c:\windows\angler.bmp")
        Me.PictureBox2.Image = GetPartOfImage(Me.PictureBox1.Image, New Point( _
          0, 0), New Size(50, 50))
    End Sub
 
    Private Function GetPartOfImage(ByVal source As Image, ByVal location As _
      Point, ByVal size As Size) As Image
        Dim b As New Bitmap(size.Width, size.Height)
        Dim g As Graphics = Graphics.FromImage(b)
        g.DrawImage(source, New Rectangle(New Point(0, 0), size), New Rectangle( _
          location, size), GraphicsUnit.Pixel)
        g.Dispose()
        g = Nothing
        Return b
    End Function
 
End Class