Dim draw As Boolean 'Declaramos una variable booleanaHacemos 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 dibujandoCurrentX = X 'carga en la variable, la ubicación en la coordenada XCurrentY = Y 'carga en la variable, la ubicación en la coordenada YEnd SubHacemos 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 puntosEnd SubHacemos 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 dibujoEnd Su