progresbar til film

jeg har lavet et lille program i Director mx 2004 hvor jeg afspiller en film(se kode herunder)og i den forbindelse vil jeg gerne kunne lave en progresbar der viser hvor langt i filmen man er.. nogen der kan hjælpe

property  mySprite, myStop
on beginSprite me
mySprite = me.spriteNum
myDuration = sprite(mySprite).member.duration
myStart = the timer
myStop = myStart + myDuration
end

on exitFrame me
if ( the timer < myStop ) then
  go to the frame
else
  go to frame "menu"
end if
end