Image Crop

Public Class Form1
    Private Sub BtnBrowse_Click(sender As Object, e As EventArgs) Handles BtnBrowse.Click
        Using OFD As New OpenFileDialog()
            With OFD
                .InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)
                .FileName = Nothing
                .Multiselect = False
                .Title = "Pick an Image"
                .Filter = "Image files (*.jpg, , *.bmp, *.png) | *.jpg; *.bmp; *.png"
                If .ShowDialog = 1 Then
                    PictureBox1.BackgroundImage = Image.FromFile(.FileName)
                End If
            End With
        End Using
    End Sub

    Private Sub BtnCrop_Click(sender As Object, e As EventArgs) Handles BtnCrop.Click

        Using imageSource As New Bitmap(PictureBox1.BackgroundImage)
            Dim imageTargetRect As Rectangle = New Rectangle(0, 0, 64, 64)
            Dim cropImage As Bitmap = imageSource.Clone(imageTargetRect, PictureBox1.BackgroundImage.PixelFormat)
            PictureBox2.BackgroundImage = cropImage
        End Using

    End Sub
End Class