Function VBGetSwfVer()
on error resume next
For td_i = 2 to 9
If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & td_i))) Then
Else
td_flashinstalled = 2
break
End If
Next
VBGetSwfVer = td_flashinstalled
End Function