How to run add-in from code

If you have some add-in installed with Access – you can run it using Menu Tools-Add-Ins. But sometimes you need to run it from button click on your form. Here a VBA code which starts add-in Translator:

Dim cb As CommandBar, cbb As CommandBarControl
Set cb = CommandBars("Menu Bar")
Set cbb = cb.Controls("&Tools").Controls("Add-&Ins").Controls("Translator")
cbb.Execute