//----- VB Script !!!!!!!!!!!!!!!!!!!

On Error Resume Next
    FlashMode_2 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash")))
On Error Resume Next
    FlashMode_3 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3")))
On Error Resume Next
    FlashMode_4 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4")))
On Error Resume Next
    FlashMode_5 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5")))
On Error Resume Next
    FlashMode_6 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.6")))
On Error Resume Next
    FlashMode_7 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.7")))
On Error Resume Next
    FlashMode_8 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.8")))
On Error Resume Next
    FlashMode_9 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.9")))