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

Private Sub Canvas_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        Canvas.Line -(X, Y)
    End If
End Sub
Private Sub Form_Load()
    Canvas.AutoRedraw = True
    Canvas.DrawWidth = 2
    Canvas.ForeColor = vbBlack
    Canvas.BackColor = vbWhite
End Sub