var
     helpForm Form
endVar
helpForm.attach()
if helpForm.isVisible() then
     sndPlaySound("c:\\pdoxwin\\working\\" +
StrVal(Sound_File), 1)
endIf
if self.atFirst() = True then
     PreviousButton.Label.Font.Color = DarkGray
else PreviousButton.Label.Font.Color = Black
endIf
if self.atLast() = True then
     NextButton.Label.Font.Color = DarkGray
else NextButton.Label.Font.Color = Black
endIf