使用一个全局变量，每次单击，变量加一，直到达到最大，最大后给变量赋初值。再根据变量的数值，执行相应的操作即可。
Public n As IntegerPrivate Sub Command1_Click()n = n + 1Command1.Caption = nIf n >= 7 Then n = 0End Sub
