'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
'Save open documents without prompting
btApp.Save(False)
'End the BarTender process
btApp.Quit(BarTender.BtSaveOptions.btDoNotSaveChanges)