' Starting a slideshow with a script

Option Explicit

app.ClearTrace

dim alb
set alb = app.GetCurrentAlbum

alb.nDelaySlideshow = 2
alb.bMultiMode = 1
alb.nMultiSubMode = 1

alb.DisplayPicture 1