• Home
 · 
• Graphics
 · 
• This is simple freeform drawing in a form

This is simple freeform drawing in a form

This is simple freeform drawing in a form

API Declarations


Dim PosY As Integer




Rate This is simple freeform drawing in a form

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

CurrentX = X
CurrentY = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
    Line -(X, Y), vbRed
End If
End Sub