' VB Document

function seteaza()
  if scriptEngineMajorVersion > 1 then 
        on error resume next 
        FIn=(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash"))) 
        if FIn then 
		seteaza=FIn
                end if 
    end if  
end function