Disegnare una ellisse

' Create the Bitmap.

Dim bm As New Bitmap(200, 100)

' Get a Graphics object associated with the Bitmap.

Dim gr As Graphics = Graphics.FromImage(bm)

' Draw on the Bitmap.

gr.FillEllipse(Brushes.Pink, 10, 10, 180, 80)
gr.DrawEllipse(Pens.Black, 10, 10, 180, 80)

' Display the Bitmap in the PictureBox.

picEllipse.Image = bm