' This visual basic helper detects the ActiveX control on IE for Windows.

Function VBGetShockwaveVer(i)
  on error resume next
  Dim swControl, swVersion
  swVersion = "0.0"
  
  set swControl = CreateObject("SWCtl.SWCtl." + CStr(i))
  if (IsObject(swControl)) then
    swVersion = CStr(i) + ".0"
    swVersion = CStr(swControl.ShockwaveVersion(""))
  end if

  VBGetShockwaveVer = swVersion
End Function