Function VBGetFlashVer(i)
 on error resume next
 Dim swControl, swVersion
 swVersion = "0.0"

 set swControl = CreateObject("ShockwaveFlash.ShockwaveFlash." + CStr(i))
 if (IsObject(swControl)) then
 swVersion = CStr(i) + ".0"
 swVersion = CStr(swControl.ShockwaveVersion(""))
 end if

 VBGetFlashVer = swVersion
End Function