'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.VisibleWindows = BarTender.BtVisibleWindows.btAll
'End the BarTender process
btApp.Quit(BarTender.BtSaveOptions.btDoNotSaveChanges)