Multiple SwitchPanes in StatusBar

Here is a method to have several different SwitchPanes spaced out across the StatusBar. 

(Think of a SwitchPane as a VB Frame containing option buttons -- when you press (check) one button it unpresses (unchecks) all the other buttons in the same SwitchPane).

The following code sample produces two SwitchPanes (groups of buttons) with a gap between them.

Set SP1 = StatusBar.AddSwitchPane(100)
   SP1.AddSwitch 101, "First Button tooltip"
   SP1.AddSwitch 102, "Second Button Tootip"
   SP1.   ...............  etc

'----------- Add a small blank pane for spacing --------------
Set Pane = StatusBar.AddPane(999)
   Pane.Text = "      "
   Pane.Button = False

'-------------- Second SwitchPane ------------------------------
Set SP2 = StatusBar.AddSwitchPane(200)
   SP2.AddSwitch 201, "Different set of buttons 1"
   SP2.AddSwitch 202, "Tooltip for different bttn 2"
   SP2.   ...............  etc


The only way I found to move the SwitchPanes away from the right hand side of the StatusBar is to add  another blank Pane after the SwitchPanes.