Function VBGetSwfVer(i)
    On error resume next
    Dim swControl, swVersion
    swVersion = 0

    Set swControl = CreateObject("ShockwaveFlash.ShockwaveFlash." + CStr(i))
    If (IsObject(swControl)) Then swVersion = swControl.GetVariable("$version")

    VBGetSwfVer = swVersion
  End Function