DRAW

vamos a declarar las variables, o la variable, NOS UBICAMOS EN GENERAL PARA ESCRIBIR LO SIGUIENTE, en este caso la variable es draw

Dim draw As Boolean 'Declaramos una variable booleana

Hacemos clic sobre el formulario para ver el área donde se escribe el código.

buscamos en los eventos el evento MOUSE DOWN y escribimos:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

draw = True 'Estamos dibujando

CurrentX = X 'carga en la variable, la ubicación en la coordenada X

CurrentY = Y 'carga en la variable, la ubicación en la coordenada Y

End Sub

Hacemos clic sobre el formulario para ver el área donde se escribe el código.

Buscamos en los eventos el evento MOUSE MOVE y escribimos:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If draw Then Line -(X, Y) 'Si la variable draw esta verdadera 'dibuja cada uno de los puntos

End Sub

Hacemos clic sobre el formulario para ver el área donde se escribe el código.

Buscamos en los eventos el evento MOUSE UP y escrbimos:

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

draw = False 'Si draw es falsa detiene el dibujo

End Sub