• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Changes the color of the form's backcolor. Very simple code to follow.

Changes the color of the form's backcolor. Very simple code to follow.

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"



Rate Changes the color of the form's backcolor. Very simple code to follow.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    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