' <!--

Function MSFlashInstalled()
  Dim obj
  On Error Resume Next
  Set obj = CreateObject("ShockwaveFlash.ShockwaveFlash")
  MSFlashInstalled = IsObject(obj)
End Function

' -->