m_cSBar.RemovePanel m_cSBar.PanelCount
   End If
End Sub

Private Sub Command1_Click()
   m_cSBar.AddPanel , "Test", 1, , , , , , 1
End Sub

Private Sub Form_Load()
   Set m_cSBar = New cNoStatusBar
   With m_cSBar
      .Create picStatus
      picStatus.BorderStyle = 0
      picStatus.ZOrder
      .ImageList = ilsIcons
      .AddPanel , , 0, 8, , , , "ICON"
      .AddPanel , "This is the main no-status bar panel", , , True, , , "MAIN"
      .AddPanel , "Mail", 3, , , , , "MAIL"
      .AddPanel , Format$(No