OnCompanyChanged - What to do via B1Wizard

Question

I'm using the B1Wizard dll for my addons & it has really made things easier. Up to now, I've only had one DB to connect to in any given add on, but now I need to know what to do when the OnCompanyChanged event triggers.
I guess I need to disconnect from the old one an connect to the new? I am using the B1Connections.diCompany object. There is some auto-generated code that does the initial connection in the Sub Main method, but I'm not sure if I need to run all of that, some of it or none.
I'm reproducing that sub, below, just for ease of reference. Can anyone tell me what needs to be done?
Public Shared Sub Main()
Dim retCode As Integer = 0
Dim connStr As String = ""
Dim diRequired As Boolean = True
'CHANGE ADDON IDENTIFIER BEFORE RELEASING TO CUSTOMER (Solution Identifier)
Dim addOnIdentifierStr As String = ""
If (System.Environment.GetCommandLineArgs().Length = 1) Then
connStr = B1Connections.connStr
Else
connStr = System.Environment.GetCommandLineArgs().GetValue(1).ToString()
End If
Try
'INIT CONNECTIONS
retCode = B1Connections.Init(connStr, addOnIdentifierStr, diRequired)
'CONNECTION FAILED
If (retCode <> 0) Then
System.Windows.Forms.MessageBox.Show("ERROR - Connection failed: " + B1Connections.diCompany.GetLastErrorDescription())
Return
End If
'CREATE DB
If (diRequired = True) Then
Dim addOnDb As DMCSBOAddOnPQS_Db = New DMCSBOAddOnPQS_Db
addOnDb.Add(B1Connections.diCompany)
End If
'CREATE ADD-ON
Dim addOn As DMCSBOAddOnPQS = New DMCSBOAddOnPQS
System.Windows.Forms.Application.Run()
Catch com_err As System.Runtime.InteropServices.COMException
'HANDLE ANY COMException HERE
System.Windows.Forms.MessageBox.Show("ERROR - Connection failed: " + com_err.Message)
End Try
End Sub
Thanks

Answer 1

I disconnect from the old session this way. The reconnection occurs when the add on is reloaded in the new session.
Private Sub SBO_Application_AppEvent(ByVal EventType As SAPbouiCOM.BoAppEventTypes) Handles UIAPP.AppEvent
            ' the following are the events sent by the application
            ' (Ignore aet_ServerTermination)
            ' in order to implement your own code upon each of the events
            ' place you code instead of the matching message box statement
            Select Case EventType
                Case SAPbouiCOM.BoAppEventTypes.aet_ShutDown
                    'SBO_Application.MessageBox("A Shut Down Event has been caught" & _
                    '    Environment.NewLine() & "Terminating Add On...")
                    ' Take care of terminating your AddOn application
                    System.Windows.Forms.Application.Exit()
                Case SAPbouiCOM.BoAppEventTypes.aet_CompanyChanged
                    'SBO_Application.MessageBox("A Company Change Event has been caught" & _
                    '    Environment.NewLine() & "Terminating Add On...")
                    System.Windows.Forms.Application.Exit()
                    ' Check the new company name, if your add on was not meant for
                    ' the new company terminate your AddOn
                    '    If SBO_Application.Company.Name Is Not "Company1" then
                    '         Close
                    '    End If
                Case SAPbouiCOM.BoAppEventTypes.aet_LanguageChanged
                    'SBO_Application.MessageBox("A Languge Change Event has been caught")
            End Select
        End Sub