' Simple VBScript script for MyAlbum

Option Explicit

app.ClearTrace

' Define the variables
dim alb, nb, i, pic

set alb = app.GetCurrentAlbum
set pic = alb.GetPicture( alb.nCurrentPicture )

alb.bDisplayComment = false
alb.redraw

app.Trace "Done !"