counter

[merhaba]

hi
number1 for the first click
number 2 for the second click
number3 for the third click
number 4 for the forth click
and so on..
thanks

[Pino]

dim counter as long
 
public sub command1_click()
 
counter = counter + 1
 
msgbox counter
 
end sub

[Xmas79]

If you want to use this counter only inside your click sub this is better:

Public Sub Command1_Click()
    Static Counter As Long
 
    Counter = Counter + 1
    MsgBox Counter
End Sub

[Bruce Fox]

Here is a simple (short) way to increment a CommandButtons caption:

Private Sub Command1_Click()
    Command1.Caption = CStr(CInt(Command1.Caption) + 1)
End Sub

Note: Set the Caption to '0' (at load or at design time)




Bruce.