FUNCTION Happy()

End Function

FUNCTION VBGetSwfVer(i)

  
  
  on error resume next
  
  
  
  Dim vbswControl, vbswVersion
  
  
  
  vbswVersion = 0
  
  set vbswControl = CreateObject("ShockwaveFlash.ShockwaveFlash." + CStr(i))
  if (IsObject(vbswControl)) then
    vbswVersion = vbswControl.GetVariable("$version")
  end if
  VBGetSwfVer = vbswVersion

End FUNCTION