by The Spudman (2 Submissions)
Category: Games
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 7th October 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Flashing Fonts. Great for use in a casino.
API Declarations
Global Col as Integer
Col = 0
Private Sub Timer1_Timer()
Select Case Col
Case 8
Col = 0
titl.ForeColor = vbBlue
Case 7
Col = 8
titl.ForeColor = vbWhite
Case 6
Col = 7
titl.ForeColor = vbCyan
Case 5
Col = 6
titl.ForeColor = vbBlack
Case 4
Col = 5
titl.ForeColor = vbRed
Case 3
Col = 4
titl.ForeColor = vbGreen
Case 2
Col = 3
titl.ForeColor = vbYellow
Case 1
titl.ForeColor = vbBlue
Col = 2
Case 0
titl.ForeColor = vbmagneta
Col = 1
End Select
End Sub