Programación VB para dibujar un círculo en un cuadro de imagen

Subimagen privada1_MouseDown(Botón como entero, Mayús como entero, x como único, y como único)

Si el botón = 1, entonces x1 = x: y1 = y

End Sub

Imagen secundaria privada1_MouseMove(Botón como entero, Mayús como entero, x como único, y como único)

Si el botón = 1, entonces

Imagen1.AutoRedraw = False

Imagen1.Refresh

Imagen1.PSet (x1, y1)

Imagen1.Circle (x1, y1), Sqr(( x - x1) ^ 2 + (y - y1) ^ 2)

Fin si

Fin Sub

Imagen secundaria privada1_MouseUp(Botón como entero, Mayús como Entero, x como único, y como único)

Si botón = 1, entonces

Imagen1.AutoRedraw = Verdadero

Imagen1.Circle (x1, y1), Sqr((x - x1) ^ 2 + (y - y1) ^ 2), Fin si

End Sub