• Home
 · 
• Graphics
 · 
• For Free Hand Drawing

For Free Hand Drawing

For Free Hand Drawing

Rate For Free Hand Drawing

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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