How to use PreviewSymbolEx ?

I am trying to open the Symbol view at Library Manager using code below. Unfortunately, it does not work. Can anyone help?

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

set actPSymbol = app.PreviewSymbolEx(job, "active_discrete", "crystal", 8)