It doesn't seem to be working...I had to change it slightly because my version of VB uses slightly different codes;
code:
Private Sub Label1_load()
times = 3
End Sub
Private Sub Command1_Click()
times = times + 1 'the user clicked the button once more
Select Case times
Case 1 ' 1st time the button is clicked
Label1.Caption = "1st text"
Case 2 ' 2nd time the button is clicked
Label1.Caption = "2nd text"
Case 3 ' 3rd time the button is clicked
Label1.Caption = "3rd text"
' etc....
Case Else ' all the other cases (ie: from the last click you have coded)
Label1.Caption = "you've clicked the button more times than what I was expected and didn't coded any other text to be displayed .p"
End Select
End Sub
3 times As Long