reseting

I have a value in th picbox and it is a counter adding one each click how do i make it if it add one each time>

VB Code:

Dim num As Integer
 
Private Sub cmdclick_Click()
picscore.Cls
NumberCount = 1
 
End Sub
 
Private Sub cmdclick_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
num = num + 1
 
picscore.Print num
End Sub

VB Code:

Dim num As Integer
 
Private Sub cmdclick_Click()
picscore.Cls
[b]NumberCount = 1[/b]
 
End Sub
 
Private Sub cmdclick_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
num = num + 1
 
picscore.Print num
End Sub

remove the line in bold.

Plus, you have two subs that activate at the exact same time... Click and MouseDown events on a Command Box accomplish the same thing.

you need to declare num as a static, then it remembers the last value when the sub is run again

VB Code:

Static num as Long