' ------------------------------------------------------------------------------------
'         Clear the Video flag
' ------------------------------------------------------------------------------------

Option Explicit

const STATE_HIDDEN = &H0200
const STATE_VIDEO  = &H1000

dim alb, pic, st

set alb = app.GetCurrentAlbum
if not alb is nothing then
  set pic = alb.GetVisiblePicture( alb.nCurrentPicture )
  if not pic is nothing then
    st = pic.lStatus
    st = st xor STATE_VIDEO
    pic.lStatus = st
  end if
end if