' ------------------------------------------------------------------------------------
'         Hide or Show the current picture
' ------------------------------------------------------------------------------------

Option Explicit

const STATE_HIDDEN = &H0200

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_HIDDEN
    pic.lStatus = st
  end if
end if