Listing 3: The FadeIt Function

Function FadeIt(obj)
 ChangeCursor
 If fadeout.value="Fade Out" then
' BEGIN CALLOUT A
  obj.style.filter="blendTrans(duration=7)"
  obj.filters.blendTrans.Apply()
  obj.style.visibility="hidden"
  obj.filters.blendTrans.Play()
  span1.innerText="New Text"
    obj.style.filter="blendTrans(duration=7)"
    obj.filters.blendTrans.Apply()
    obj.style.visibility="visible"
   obj.filters.blendTrans.Play()
  fadeout.value="Fade Back"
' END CALLOUT A
 Else
  obj.style.filter="blendTrans(duration=7)"
  obj.filters.blendTrans.Apply()
  obj.style.visibility="hidden"
  obj.filters.blendTrans.Play()
  span1.innerText="Click Fade Buttons for Fade Demo"
  obj.style.filter="blendTrans(duration=7)"
  obj.filters.blendTrans.Apply()
  obj.style.visibility="visible"
  obj.filters.blendTrans.Play()
  fadeout.value="Fade Out"
 End If
 d1.focus
End Function