I have a startup script below to preview a Symbol in Library Manager. Unfortunately, my custom &myMenu as below cannot work. Any reason? If I commented preview Symbol code (line 7), it works fine. Any advice?
Dim appID, app, job, libObj, actLibInit, actPSymbol
appID = "LibraryManager.Application"
Set app = GetObject(, appID)
job = "C:\Temp\Mentor-docs\AATK\1499\AATK_1499\AATK_Central_Lib\AATK_Central_Lib.lmc"
Set libObj = app.OpenLibrary(job)
Set actLibInit = app.ActiveLibrary
actPSymbol = app.PreviewSymbolEx(job, "active_discrete", "crystal", kSYMBOL_DX)
Dim docMenuBar, menupos, sMenu
Set docMenuBar = CommandBars("Main Menu Bar")
menupos = docMenuBar.Controls.Count()
Set sMenu = docMenuBar.Controls.Add(cmdControlPopup,,,menupos)
sMenu.Caption = "&myMenu"