Dim myPen As New Pen(Color.Black, 5) Dim g As Graphics = Me.CreateGraphics g.DrawEllipse(myPen, 20, 30, 10, 50)