'Declare a BarTender application variable
                
                Dim btApp As BarTender.Application 
                
                'Create a new instance of BarTender variable
                
                btApp = New BarTender.Application
                
                'Set the BarTender application visible
                
                btApp.Visible = True
                
                'Set BarTender as the top most application
                
                btApp.TopMost = True
                
                'End the BarTender process 
                
                btApp.Quit(BarTender.BtSaveOptions.btDoNotSaveChanges)