Private Sub Command1_Click()Static Times As IntegerTimes = Times + 1Select Case Times Case 1 Me.BackColor = vbRed Case 2 Me.BackColor = vbYellow Case 3 ???End SelectEnd Sub
Private Sub Command1_Click()Static Times As IntegerTimes = Times + 1Select Case Times Case 1 Me.BackColor = vbRed Case 2 Me.BackColor = vbYellow Times=0End Select