RemoveCommand "MyCommand" ' remove any instance of existing command
set cmd = Application.CreateCommand("MyCommand")
cmd.ScriptingName = "MyCommand"
cmd.Language = "VBScript"
cmd.Code = "LogMessage ""MyCommand invoked"""
cmd.tooltip = "This is the tooltip of MyCommand"
Application.AddCommand cmd
LogMessage "Command tooltip: " & cmd.tooltip
' Result of running this example:
'INFO : "Command tooltip: This is the tooltip of MyCommand"