Code:
Private Sub Form_Load()

  Dim dteTemp As Date
  Dim i As Long


  m_lngRefreshLevel = 0
  m_blnFormInitialized = False


  ' Set caption shown in title bar
  Me.Caption = "Wellspring Program Registration Calendar"
  
  ' At start-up, set form to fullscreen mode
  Me.WindowState = vbMaximized
  
  ' Set form to new background colour
  fraScheduleMode.BackColor = picHeader.BackColor
  Me.BackColor = COLOR_BACKGROUND
  
  ' Initialize reference to UtilDB
  If m_objUtilDB Is Nothing Then
     Set m_objUtilDB = New clsUtilDB
     m_objUtilDB.Init
  End If
  
  m_objUtilDB.IsSeriesMode = True
  optScheduleMode(2).Value = True
  
  TwipsX = Screen.TwipsPerPixelX
  TwipsY = Screen.TwipsPerPixelY
  

  Me.KeyPreview = True
  
  picHeader.BackColor = COLOR_BACKGROUND
  fraScheduleMode.BackColor = COLOR_BACKGROUND
  optScheduleMode(0).BackColor = COLOR_BACKGROUND
  optScheduleMode(1).BackColor = COLOR_BACKGROUND
  optScheduleMode(2).BackColor = COLOR_BACKGROUND
  
  cmdPrev.BackColor = COLOR_BACKGROUND
  cmdNext.BackColor = COLOR_BACKGROUND
  cmdManageMembers.BackColor = COLOR_BACKGROUND
  cmdRegisterSeries.BackColor = COLOR_BACKGROUND
  cmdWaitList.BackColor = COLOR_BACKGROUND
  cmdManageSeries.BackColor = COLOR_BACKGROUND
  cmdSessionDetailsReport.BackColor = COLOR_BACKGROUND
  cmdAdminOptions.BackColor = COLOR_BACKGROUND
  
  shpScheduleBottomLeft.BackColor = COLOR_BACKGROUND
  shpScheduleBottomLeft.BorderColor = COLOR_BACKGROUND
  shpScheduleBottomRight.BackColor = COLOR_BACKGROUND
  shpScheduleBottomRight.BorderColor = COLOR_BACKGROUND
  shpScheduleTopRight.BackColor = COLOR_BACKGROUND
  shpScheduleTopRight.BorderColor = COLOR_BACKGROUND

  fraScheduleMode.BackColor = COLOR_BACKGROUND
  
  cboSASRange.Clear
  dteTemp = Int(DateSerial(2010, 1, 3))
  Do While dteTemp < Now() + 720
     cboSASRange.AddItem " week of " & Format(dteTemp, "Mmm DD, YYYY")
     cboSASRange.ItemData(cboSASRange.NewIndex) = Int(dteTemp)
     dteTemp = dteTemp + 7
  Loop
  
  dteTemp = Now()
  For i = 0 To cboSASRange.ListCount - 1
    If cboSASRange.ItemData(i) = Int(uWeekStart(dteTemp)) Then
       cboSASRange.ListIndex = i
       Exit For
    End If
  Next i
  
  m_objUtilDB.ScheduleRequery dteTemp
  
  uRefreshMainPanel