vb.net picturebox形状变成圆形_重绘-默认是长方形

小爱

        Dim gp As GraphicsPath = New GraphicsPath()
        gp.AddEllipse(PictureBox1.ClientRectangle)
        Dim region As Region = New Region(gp)
        PictureBox1.Region = region
        gp.Dispose()
        region.Dispose()