Function VBisSwf()
  on error resume next
  Dim swControl
  Dim swf
  swf = false

  set swControl = CreateObject("ShockwaveFlash.ShockwaveFlash." + CStr(1))
  if (IsObject(swControl)) then
	swf = true
  end if
	  
  VBisSwf = swf
End Function