|
|
Visual Basic .NETSORGENTI - FORM - CREARE UNA FORM ELLITTICA Imports System.Drawing.Drawing2D Public Sub New() MyBase.New() InitializeComponent() 'Create the elliptical form Dim gPath As GraphicsPath = New GraphicsPath() gPath.AddEllipse(0, 0, Me.ClientSize.Width, Me.ClientSize.Height) Me.Region = New Region(gPath) End Sub |