Strange StatusBar

Can anyone tell my why my statusbar all of a sudden looks like the image after upgrading to 10.2?  It is created with the following code:

Private Sub SetUpStatusBar()
   
    Dim Pane As StatusBarPane
    Set StatusBar = CommandBars.StatusBar
    StatusBar.Visible = True
   
    Set Pane = StatusBar.AddPane(SB_BATCH)
    Pane.style = SBPS_STRETCH
    Pane.Visible = True
    Pane.Alignment = xtpAlignmentLeft
    Pane.Text = vbNullString
    Pane.TextColor = vbBlack
    Pane.Width = 0
   
    Set Pane = StatusBar.AddPane(SB_EMPLOYEE)
    Pane.style = SBPS_STRETCH
    Pane.Visible = True
    Pane.Alignment = xtpAlignmentLeft
    Pane.Text = vbNullString
    Pane.TextColor = vbBlack
    Pane.Width = 0
   
    Set Pane = StatusBar.AddPane(SB_CUSTOMER)
    Pane.style = SBPS_STRETCH
    Pane.Visible = True
    Pane.Alignment = xtpAlignmentLeft
    Pane.Text = vbNullString
    Pane.TextColor = vbBlack
    Pane.Width = 0
   
    Set Pane = StatusBar.AddPane(SB_IMAGES)
    Pane.style = SBPS_STRETCH
    Pane.Visible = True
    Pane.Alignment = xtpAlignmentLeft
    Pane.Text = vbNullString
    Pane.TextColor = vbBlack
    Pane.Width = 0
   
    Set Pane = StatusBar.AddPane(SB_DOCUMENTS)
    Pane.style = SBPS_STRETCH
    Pane.Visible = True
    Pane.Alignment = xtpAlignmentLeft
    Pane.Text = vbNullString
    Pane.TextColor = vbBlack
    Pane.Width = 0
   
    Set Pane = StatusBar.AddPane(SB_NOTES)
    Pane.style = SBPS_STRETCH
    Pane.Visible = True
    Pane.Alignment = xtpAlignmentLeft
    Pane.Text = vbNullString
    Pane.TextColor = vbBlack
    Pane.Width = 0
   
    Set Pane = StatusBar.AddPane(ID_INDICATOR_CAPS)
    Pane.Visible = True
    Pane.Alignment = xtpAlignmentRight
   
    Set Pane = StatusBar.AddPane(ID_INDICATOR_NUM)
    Pane.Visible = True
    Pane.Alignment = xtpAlignmentRight
   
    Set Pane = StatusBar.AddPane(ID_INDICATOR_SCRL)
    Pane.Visible = True
    Pane.Alignment = xtpAlignmentRight
   
    CommandBars.Options.KeyboardCuesShow = xtpKeyboardCuesShowWindowsDefault
      
End Sub



Also on this form is a RibbonBar, if that info helps.

Thanks!

Does this one have CJ stumped?

If you want to recreate it, enter the following code into the Form_Load event of the RibbonBar sample provided by CJ (VB6):

CreateRibbonBar
    'CrateSkinFramework
   
    CommandBars.KeyBindings.Add FCONTROL, Asc("N"), ID_FILE_NEW
    CommandBars.KeyBindings.Add FCONTROL, Asc("O"), ID_FILE_OPEN
    CommandBars.KeyBindings.Add FCONTROL, Asc("S"), ID_FILE_SAVE
    CommandBars.KeyBindings.Add FCONTROL, Asc("X"), ID_EDIT_CUT
    CommandBars.KeyBindings.Add FCONTROL, Asc("C"), ID_EDIT_COPY
    CommandBars.KeyBindings.Add FCONTROL, Asc("V"), ID_EDIT_PASTE
   
    LoadIcons
   
    Dim StatusBar As StatusBar
    Set StatusBar = CommandBars.StatusBar
    StatusBar.Visible = True
   
    StatusBar.AddPane 0
    StatusBar.AddPane 1
    StatusBar.Pane(1).Text = "new pane"
    StatusBar.AddPane ID_INDICATOR_CAPS
    StatusBar.AddPane ID_INDICATOR_NUM
    StatusBar.AddPane ID_INDICATOR_SCRL
   
    RibbonBar.EnableFrameTheme
   
    CommandBars.Options.KeyboardCuesShow = xtpKeyboardCuesShowWindowsDefault
   
    bShowTableContextTabs = False
    bShowChartContextTabs = False
   
    CommandBars.EnableCustomization True
    CommandBars.LoadCommandBars "Codejock Software ActiveX Demos", App.Title, "Layout"

That's not ok.  Why is the pane that says "ready" light blue and the pane that says "new pane" darker blue?  Also, you can't see any separators between the panes of the same color ("new pane", "cap", "num", and "scrl").

In 10.1.1 all panes were the same color with visible separators.

Check out the screenshots at http://www.microsoft.com/office/preview/ui/overview.mspx

They clearly have more than one pane on the left with separators that are light blue.  Then on the right they have the darker panes.

I'm not trying to be picky but the flexibility of adding as many light blue panes and as many dark blue panes that we want should be there.

Thanks for the quick responses today!

Fantastic!  Thanks for the help.

I know this is years later, but ... has this been fixed?  I'm running v13.0, and it still seems to have this problem. 

It sure would be nice if the "BeginGroup" property on the StatusBarPane object really worked, instead of us having to create tiny separator panes of a darker color....