by Alexander Drankus (3 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 26th November 2000
Date Added: Mon 8th February 2021
Rating:
(1 Votes)
Changes the color of the form's backcolor. Very simple code to follow.
API Declarations
'Student @ DeVry-Chicago
'Sunday, November 26, 2000
Dim intCount As Integer
'You only need a timer on your form, "Timer1"
Timer1.Interval = 10
intCount = 1
End Sub
Private Sub Timer1_Timer()
If intCount = 1 Then
Me.BackColor = &HFFFFFF
intCount = intCount + 1
Exit Sub
ElseIf intCount = 2 Then
Me.BackColor = &HE0E0E0
intCount = intCount + 1
Exit Sub
ElseIf intCount = 3 Then
Me.BackColor = &HC0C0C0
intCount = intCount + 1
Exit Sub
ElseIf intCount = 4 Then
Me.BackColor = &H808080
intCount = intCount + 1
Exit Sub
ElseIf intCount = 5 Then
Me.BackColor = &H404040
intCount = intCount + 1
Exit Sub
ElseIf intCount = 6 Then
Me.BackColor = &H0&
intCount = 1
Exit Sub
End If
End Sub
No comments have been posted about Changes the color of the form's backcolor. Very simple code to follow.. Why not be the first to post a comment about Changes the color of the form's backcolor. Very simple code to follow..