Hey John, would you give this a try? I believe this has worked for that scenario for other people.
' However you need to, get a reference to the scene that's currently online
Dim scene as xpScene
Engine.Tessera.GetSceneOnLayer(5000, scene)
' This is supposed to be the magic here.
' "FADE" is the name of the SceneDirector to play
scene.SetProperty("SceneDirectors.FADE.Actions.PlayRange","0,30")
------------------------------
Zachary Fradette
United States
------------------------------