Comando VB para dibujar un círculo con un círculo

Quieres dibujar un círculo relleno, te daré un código de muestra de la siguiente manera:

Dim?i?As?Integer,?l?As?Integer

Dim?r?As?Boolean

Privado?Sub?Form_Load()

Form1.Scale?.Scale?(-200,?200)-(200,? - 200)

l?=?1

i?=?1

r?=?False

Fin?Sub< / p>

¿Privado?Sub?Timer1_Timer()

DoEvents

If?r?=?False?Then

Timer1.Interval?=? i

i?=?i? ?l

Form1.Cls

Form1.FillStyle?=?0

Form1.FillColor ? =?vbRed

Círculo?(0,?0),?i,?vbBlue

Si?i?gt;=?200?Entonces

r ?=?Verdadero

Fin?Si

ElseIf?r?=?Verdadero?Entonces

Temporizador1.Intervalo?=? p >i?=?1

Form1.Cls

Form1.FillStyle?=?0

Form1.FillColor?=?vbBlue

¿Círculo?(0,?0),?i,?vbAzul

Si ?i?lt;=?1?Entonces r?=?False

Fin?Si< / p>

¿Fin?Si

Fin?Si

¿Fin?