Function CheckPandoraCtrl ()
        CheckPandoraCtrl = 0
        On Error Resume Next
        Set pandoraObj = CreateObject ( "PandoraBoxCtrl2.PandoraBoxCtrl2.1" )
        If ( IsObject(pandoraObj) ) Then 
            CheckPandoraCtrl = 2
            Set pandoraObj = NoThing
        Else 
            Set pandoraObj = CreateObject ( "PandoraBoxCtrl.PandoraBoxCtrl.1" )
            If ( IsObject(pandoraObj) ) Then 
                CheckPandoraCtrl = 1
                Set pandoraObj = NoThing
            End if
        End if
End Function

Function UseBoontyBoxToDownload ()
        UseBoontyBoxToDownload = 0
        On Error Resume Next
        Set pandoraObj = CreateObject ( "PandoraBoxCtrl2.PandoraBoxCtrl2.1" )
        If ( Not(IsObject(pandoraObj)) ) Then
            Set pandoraObj = CreateObject ( "PandoraBoxCtrl.PandoraBoxCtrl.1" )
        End if
        If ( IsObject(pandoraObj) ) Then 
            If pandoraObj.CheckIfBoontyBoxInstalled() Then 
                If pandoraObj.CheckIfCanUseBoontyBoxToDownload() Then
                    UseBoontyBoxToDownload = 1
                End if
            End if
            Set pandoraObj = NoThing
        End if
End Function