by Sanjay From Jhajjar Ph. 09899842199 (1 Submission)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 5th June 2005
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
For Free Hand Drawing
VBcoders
Draw.Cls
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
CurrentX = X
CurrentY = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Draw.DrawWidth = 5
Draw.Line (CurrentX, CurrentY)-(X, Y), vbRed
End Sub