• Home
 · 
• Games
 · 
• Change Fonts

Change Fonts

Change Fonts

Rate Change Fonts

• 1
• 2
• 3
• 4
• 5

(2(2 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