Begin VB.Form Form1 
   Caption = "Form1"

   Begin VB.CheckBox chkColorChanges 
      Caption  =  "Color Changes"
   End

   Begin VB.CommandButton cmdCountDown 
      Caption  =  "Count Down "
   End

   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   1000
   End

   Begin VB.VScrollBar VScroll1 
      LargeChange     =   1
      Max             =   0
      Min             =   10
      SmallChange     =   1
      Value           =   10
   End

   Begin VB.Label lblCountDown 
      Alignment       =   2  'Center
      Caption         =   "Ball  Drop"
   End
End

'  Using a Vertical Scroll Bar to kick off Sturgis Falls Days
'  Friday, June 23rd, 1999 handout also illustrates CheckBox control
'  Page 242-243 Check Box control; Page 249-250 Scroll Bars

'  Monday, July 1st, 2002 group exercise

Option Explicit

Dim originalFormColor As Long

Private Sub cmdCountDown_Click()
    Timer1.Enabled = True
    VScroll1.Value = 10
    Form1.Caption = "Counting Down"
    '  lblCountDown.Caption = 10
End Sub

Private Sub Form_Load()
    originalFormColor = Form1.BackColor
    VScroll1.Max = 0
    VScroll1.Min = 10
    VScroll1.Value = 10
    Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
    Dim color As Long
    
    If chkColorChanges = vbChecked Then
        color = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
        Form1.BackColor = color
        chkColorChanges.BackColor = color
        lblCountDown.BackColor = color
    ElseIf Form1.BackColor <> originalFormColor Then
        Form1.BackColor = originalFormColor
        chkColorChanges.BackColor = originalFormColor
        lblCountDown.BackColor = originalFormColor
    End If
    
    VScroll1.Value = VScroll1.Value - 1
    
    If VScroll1 = 0 Then
        Form1.Caption = "Happy New Year (Sturgis Falls Days)!"
        lblCountDown = "Blast Off!"
        Timer1.Enabled = False
    End If
End Sub

Private Sub VScroll1_Change()
    lblCountDown.Caption = VScroll1.Value
End Sub