Programación VB para dibujar un círculo con el ratón

Cree un proyecto, coloque un control PictureBox en la interfaz, el nombre del control es Imagen1, luego copie el siguiente código en el proyecto y ejecútelo para ver el efecto.

¿Opción?Explícita

¿Privada?Tipo?POINTAPI

x?As?Long

y?As?Long

¿Fin?Tipo

¿Privado?Declarar?Función?Elipse?Lib?"gdi32"?(ByVal?hdc?As?Long,?ByVal?X1?As?Long,?ByVal?Y1? ¿Como?Largo,?PorVal?X2?¿Como?Largo,?PorVal?Y2?¿Como?Largo)?Como?Largo

¿Privado?DrawEllipse?Como?Booleano

Privado?dwPoint (1)?As?POINTAPI

Privado?Sub?Form_Load()

Imagen1.ScaleMode?=?vbPixels

Imagen1.AutoRedraw?=?True

¿Fin?Sub

¿Privado?Sub?Picture1_MouseDown(Botón?¿Como?Entero,?Mayúsculas?Como?Entero,?x?Como?Único,?y?Como?Único)

Si?Button?=?vbLeftButton?Then

DrawEllipse?=?True

dwPoint(0).x?=?CLng(x)

dwPoint(0).y?=?CLng(y)

¿Fin?Si

Fin?Sub

¿Privado?Sub?Picture1_MouseMove( ¿Botón? ¿Como? Entero,? ¿Mayús? ¿Como? Entero,? ¿x? ¿Como? Único,? dwPoint(1).x?=?CLng(x)

dwPoint(1).y?=?CLng(y)

Imagen1.Cls

¿Elipse?Picture1.hdc,?dwPoint(0).x,?dwPoint(0).y,?dwPoint(1).x,?dwPoint(1).y

Imagen1.Refresh

¿Fin?Si

¿Fin?Sub

¿Privado?Sub?Picture1_MouseUp(Botón?¿Como?Entero,?Mayúsculas?Como?Entero,?x?Como?Único, ?y?As?Single)

If?Button?=?vbLeftButton?Then

DrawEllipse?=?False

Fin?If

Fin?Sub