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