在 Form 上拖 3 个进度条，命名为 h、m、s，分别表示时、分、秒，再放一个 Timer 控件，然后键入以下代码：
     Private Sub Form_Load()
      h.Orientation = ccOrientationVertical
      h.Scrolling = ccScrollingSmooth
      h.Max = 24: h.Min = 0
      m.Orientation = ccOrientationVertical
      m.Scrolling = ccScrollingSmooth
      m.Max = 60: m.Min = 0
      s.Orientation = ccOrientationVertical
      s.Scrolling = ccScrollingSmooth
      s.Max = 60: s.Min = 0
     End Sub
     Private Sub Timer1_Timer()
      h.Value = Format$(Now,“hh”)
      m.Value = Minute(Now)
      s.Value = Format$(Now,“ss”)
     End Sub