AddSystemButton problem in .NET/C# and VB

I've tried to add a system button using AddSystemButton to a ribbon bar. I've looked at the samples and no doubt I'm missing something small, and I've also copied the example from the help file and it still isn't working.

 

My code:

 

CommandBars.Icons.LoadBitmap "C:\Program Files\Codejock Software\ActiveX\Xtreme SuitePro ActiveX v10.3.1 (30 Day Trial)\samples\CommandBars\C#.NET\RibbonSample\res\shiny-gear.png", 99, xtpImageNormal

    Dim RibbonBar As RibbonBar
    Set RibbonBar = CommandBars.AddRibbonBar("The Ribbon")
    RibbonBar.EnableDocking xtpFlagStretched

    Dim ControlFile As CommandBarPopup
    Dim Control As CommandBarControl

    Set ControlFile = RibbonBar.AddSystemButton()
    ControlFile.IconId = 99
    With ControlFile.CommandBar.Controls
        .Add xtpControlButton, ID_FILE_NEW, "&New"
        .Add xtpControlButton, ID_FILE_OPEN, "&Open..."
        .Add xtpControlButton, ID_FILE_SAVE, "&Save"
        .Add xtpControlButton, ID_FILE_SAVE_AS, "Save &As..."
        Set Control = .Add(xtpControlButton, ID_FILE_PRINT, "&Print")
        Control.BeginGroup = True
        .Add xtpControlButton, ID_FILE_PRINT_PREVIEW, "Print Pre&view"
        .Add xtpControlButton, ID_FILE_PRINT_SETUP, "Pr&int Setup..."
        Set Control = .Add(xtpControlButton, ID_FILE_MRU_FILE1, "Recent File")
        Control.BeginGroup = True
        Control.Enabled = False
        Set Control = .Add(xtpControlButton, ID_APP_EXIT, "E&xit")
        Control.BeginGroup = True
    End With

This adds the System Menu but there is no icon. The icon is definatley loading correctly because I can assign it to a menu item.

 

This is really frustrating...