Skip to main content

Posts

Showing posts from March, 2019

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