[VB.NET] [مساعدة] ... كيف انفذ هذا الكود ...؟

كود :
Imports System.Drawing.Drawing2D

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Using ofd As New OpenFileDialog

            ofd.Filter = "Image Files|*.jpg;*.png;*.bmp"

            ofd.Multiselect = False

            If ofd.ShowDialog = DialogResult.OK Then

                MakeRoundedImage(Image.FromFile(ofd.FileName), PictureBox1)

            End If

        End Using

    End Sub



    Private Sub MakeRoundedImage(ByVal Img As Image, ByVal PicBox As PictureBox)

        Using bm As New Bitmap(Img.Width, Img.Height)

            Using grx2 As Graphics = Graphics.FromImage(bm)

                grx2.SmoothingMode = SmoothingMode.AntiAlias

                Using tb As New TextureBrush(Img)

                    tb.TranslateTransform(0, 0)

                    Using gp As New GraphicsPath

                        gp.AddEllipse(0, 0, Img.Width, Img.Height)

                        grx2.FillPath(tb, gp)

                    End Using

                End Using

            End Using

            If PicBox.Image IsNot Nothing Then PicBox.Image.Dispose()

            PicBox.Image = New Bitmap(bm)

        End Using

    End Sub

End Class