w, "short time"), , 0, , True, , "CLOCK"
      .SizeGrip = True
      picStatus.Height = .Height
   End With
End Sub

Private Sub Form_Resize()
On Error Resume Next
   lblLogoBack.Width = Me.ScaleWidth - lblLogoBack.Left * 2
   lblLogoStripe.Width = lblLogoBack.Width - lblLogoStripe.Left - 4 *
    Screen.TwipsPerPixelX
   lblSimple.Width = Me.ScaleWidth - lblSimple.Left * 2
End Sub

Private Sub lblSimple_MouseDown(Button As Integer, Shift As Integer, X As
 Single, Y As Single)
   m_cSBar.SimpleMode = True
 