reseting

[vizbasspec]

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>

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

[timeshifter]

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.

[westconn1]

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

Static num as Long