Private sub Timer1_timer () Static Signal as Integer Signal = Signal +1 If Signal > 6 Then Signal = 1 Select Case Signal Case Is = 1 Form1.BackColor = "255" Case Is = 2 From1.BackColor = "62580" Case Is = 3 Form1.BackColor = "15711680" Case Is = 4 Form1.BackColor = "16711935" Case Is = 5 Form1.BackColor = "65535" Case Is = 6 Form1.BackColor = "0" End Select End Sub