(This is a very simple example)
Add a picturebox to your form.
Ad the following code:
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.PSet (X, Y), RGB(255, 0, 0)
End Sub
Run and wiggle your mouse over the box.
[edit]
Better drawing:
Dim OldX, OldY As Integer
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Line (X, Y)-(OldX, OldY), RGB(255, 0, 0)
OldX = X
OldY = Y
End Sub
Two strings walk into a bar. I'll have a pint says the first$%ASLDJ09920D"$"$D. Excuse my friend says the second, he isn't null terminated.