How to use CreateAsBinaryFile?

hi,

i wanna save/load the layout of my 4 commandbars into/from the same binary file.

I use VB6 with Commandbars 12.1.1 and this is my code for loading and saving to a binary file:

' SAVE
Dim pxWrite As PropExchange

Set pxWrite = XtremeCommandBars.CreatePropExchange

pxWrite.CreateAsBinaryFile False, App.Path & "\Toolbar.dat"
ExchangeState pxWrite, cbrMain
ExchangeState pxWrite, cbrDrives
ExchangeState pxWrite, cbrFiles
ExchangeState pxWrite, cbrReport

' LOAD
Dim pxRead As PropExchange
Set pxRead = XtremeCommandBars.CreatePropExchange

If (pxRead.CreateAsBinaryFile(True, App.Path & "\Toolbar.dat")) Then
   ExchangeState pxRead, cbrMain
   ExchangeState pxRead, cbrReport
   ExchangeState pxRead, cbrDrives
   ExchangeState pxRead, cbrFiles
End If

Private Sub ExchangeState(ByRef px As PropExchange, ByRef Toolbar As CommandBars)

Dim pxSection As PropExchange
Dim Options As StateOptions

Set Options = Toolbar.CreateStateOptions
Options.SerializeControls = True
Options.SaveOnlyCustomized = True
Options.SaveOriginalControls = False
Options.SerializeOptions = True
Options.SerializeLayout = True

Set pxSection = px.GetSection(Toolbar.name)
Toolbar.DoPropExchange pxSection, Options

End Sub

When loading from the binary file the changes of an toolbar always will be visible at an other toolbar.
Let's say i change toolbar cbrMain and save all toolbars. When loading the changes will be visible at toolbar cbrReport.

Anyone can help?