Ireland1978
Programmer
Code:
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 Single, Y As Single)
If isDrawing Then
pic1.Line (currentX, currentY)-(X, Y)
End If
End Sub
I'm trying to write a code that draws lines in a picture box. When I go to run the code above, I get the follwing message:
Member already exists in a object module from which this object module derives in reference to the following line of code:
Code:
Dim currentX As Single