'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)