Membuat PictureBox Menjadi BULAT

 Private Sub FOTOBULAT()
        Dim theGambar As System.Drawing.Drawing2D.GraphicsPath = New System.Drawing.Drawing2D.GraphicsPath()
        theGambar.AddEllipse(0, 0, ImgPHOTO.Width - 3, ImgPHOTO.Height - 3)
        Dim theRegion As Region = New Region(theGambar)
        ImgPHOTO.Region = theRegion
    End Sub