Wait a minute. I was on the right track
Look here :
If you were to use the same logic here for each button, it would workCode:Private Sub Command1_Click() Static iClicked As Integer Dim sbut As String iClicked = iClicked + 1 Select Case iClicked Case 1 sbut = "A" Case 2 sbut = "B" Case 3 sbut = "C" Case Is > 3 iClicked = 0 End Select Text1.Text = sbut End Sub
Yes, some tweaking is still required, but the rough framework would be there.






Reply With Quote