Dim myBrush As New SolidBrush(Color.LightBlue)
Dim myGraphic As Graphics = Me.CreateGraphics()
Dim myRectangle As New Rectangle(0,0,40,40)
myGraphics.FillEllipse(myBrush,myRectangle)
myGraphics.Dispose()
myBrush.Dispose()