<!-- // Visual basic helper required to detect Flash Player ActiveX control version information

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")

  end if

  VBGetSwfVer = swVersion

End Function

// -->