VERSION 5.00
Begin VB.Form ColStatus 
   Caption         =   "Form1"
   ClientHeight    =   3180
   ClientLeft      =   60
   ClientTop       =   360
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3180
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   30
      Left            =   360
      Top             =   360
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Form is loading"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   11.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   2880
      Width           =   4695
   End
End
Attribute VB_Name = "ColStatus"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Dim R As Integer, G As Integer, B As Integer
Private Sub Form_Load()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
'R = R + 1
'G = G + 3
'B = B + 5
'Label1.ForeColor = RGB(R, G, B)

If R >= 255 Then
    R = 0
Else
    R = R + 10
End If
If G >= 255 Then
    G = 0
Else
    G = G + 20
End If
If B >= 255 Then
    B = 0
Else
    B = B + 5
End If
Label1.ForeColor = RGB(R, G, B)
End Sub