Intro : This program basically creates a Sketchpad on which lines can be created on clicking and holding mouse button.

Concept : When the mouse_down event of picture box picCanvas is triggered, a dot is created.

When mouse_move event is triggered, a line is created to the current coordinates of the mouse.

Coding:

CODE


Private Sub Form_Load()
    picCanvas.AutoRedraw = True
    picCanvas.DrawWidth = 2
    picCanvas.ForeColor = vbBlue
    picCanvas.BackColor = vbWhite
End Sub



Explaination : Not needed, just the basic properties.(Blue line will be created on a white-backgrounded picture box)

CODE


Private Sub picCanvas_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        picCanvas.Line (X, Y)-(X, Y)
    End If
End Sub



Explaination : On holding mouse down, a dot is created, i.e., a line with initial and final coordinates SAME.


CODE


Private Sub picCanvas_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        picCanvas.Line -(X, Y)
    End If
End Sub



Explaination : The line is extended till the CURRENT coordinates of the mouse.

I think its clear now, for a working sample, download the ATTACHMENT.