Change Fonts

by MONTYMANAU (1 Submission)
Category: Games
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 9^th September 2002
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Change Fonts

Rate Change Fonts




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

Download this snippet Add to My Saved Code

Change Fonts Comments

No comments have been posted about Change Fonts. Why not be the first to post a comment about Change Fonts.

Change Fonts

Change Fonts Comments

Post your comment

Difficulty