BO sessions not closing while after logon through Designer.application

[ksreedhar]

I am trying to collect the objects that is tables, functions, views and stored procedures from the universe item. For that I am using Designer DLL and through Designer.application I am logging to BO(V4.2) CMC and getting universe root folder and then by using that universe root folder, collecting all the universe items and opening each item by Designer.application.universes.OpenFromEnterprise. Finally I am closing the application by using Designer.application.quit() and also making null.

Case 1: BO CMC sessions are not closing while after logon through Designer.application

case 2: BO CMC sessions are not closing while after retrieving the universe root folder by Designer.application.UniverseRootFolder.Folders.get_Item("<item>")

Case 3: BO CMC sessions are closing after getting universe details by Designer.application.universes.OpenFromEnterprise

Please help me on how to clear the BO sessions

[denis_konovalov]

I have fixed your tags, please select more carefulnext time.

[ayman_salem]

Here is a code that I used to logout and it works fine.

to close univ ---> univ.close

to close Designer (logout) ---> desApp.Quit

Public DesApp As Designer.Application           ' Designer App. Object
Public Univ As Designer.Universe                ' Desinger Universe Object
...
...
...
....

Sub Logout()
    ' if already login then
    ' close any opened Univ
    ' logout from BO Designer by close it
    ' set Variable with default Values (False, Nothing)
    If bLogin Then
        ' Show Status Msg in the Excel StatusBar
        Application.StatusBar = "Logging out..."
        
        ' set the excel's cursor to Default
        Application.Cursor = xlDefault
        
        ' close opened Univ.
        If bUniv Then
            Univ.Close
        End If
        Set Univ = Nothing
        bUniv = False
    End If
    
    ' close BO Designer
    If Not DesApp Is Nothing Then
        DesApp.Quit
    End If
    Set DesApp = Nothing
    
    ' clear excel's status bar
    Application.StatusBar = False
    
    bLogin = False
End Sub