Dim currentX As Single
Dim currentY As Single
Dim isDrawing As Boolean
Private Sub pic1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
isDrawing = True
currentX = X
currentY = Y
End Sub
Private Sub pic1_MouseUp(Button As Integer, Shift As Integer, X As...