• Home
 · 
• Games
 · 
• Flashing Fonts. Great for use in a casino.

Flashing Fonts. Great for use in a casino.

Flashing Fonts. Great for use in a casino.

API Declarations


Global Col as Integer

Col = 0



Rate Flashing Fonts. Great for use in a casino.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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