Escribir programa de dibujo usando VB

Proporciona un código simple para dibujar curvas arbitrarias. Otras funciones son similares, espero que puedas sacar inferencias de un ejemplo.

Agregue un cuadro?Imagen?en el formulario y luego ingrese el comando de la siguiente manera: Dim?oldx?As?Single

Dim?oldy?As?Single Private?Sub?Picture1_MouseMove (Botón ?Como?Integer,?Shift?As?Integer,?X?As?Single,?Y?As?Single)

Si?Button?=?1?Then?'Cuando se presiona el botón izquierdo del mouse se presiona el botón Ocurre cuando

Imagen1.Línea?(oldx,?oldy)-(X,?Y)

oldx?=?X

oldy? =?Y

Fin?Si

Fin?Sub

Privado?Sub?Picture1_Mousedown(Botón?Como?Entero,?Mayús?Como?Entero,? X?As ?Single,?Y?As?Single)

oldx?=?X

oldy?=?Y

Fin?Sub