Option Explicit

Private Sub Command1_Click()
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = True
End Sub

Private Sub Command3_Click()
Text1.ForeColor = vbBlack
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = False
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 500
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = False
End Sub

Private Sub Timer1_Timer()
Static i As Integer
Dim j As Integer
i = i + 1
j = i Mod 5
Select Case j
Case 0
      Text1.ForeColor = RGB(145, 85, 147)
Case 1
      Text1.ForeColor = vbRed
Case 2
      Text1.ForeColor = vbBlue
Case 3
      Text1.ForeColor = vbYellow
Case 4
      Text1.ForeColor = RGB(36, 241, 75)
End Select
End Sub