'--------------------------------------------------------------------------------- ' SetPictureDelay.vbs ' Set the "picture level" delay of the current picture to a specified value. '--------------------------------------------------------------------------------- Option Explicit dim alb, pic, l set alb = app.GetCurrentAlbum set pic = alb.GetVisiblePicture( alb.nCurrentPicture ) app.Trace pic.sShortFileName 'if pic is null then l = pic.lTransition app.Trace l pic.lTransition = 20 'end if