Function getIeFlashVersion()

	on error resume next
	Dim FlaControl, FlaVersion
	FlaVersion = 0

	Set FlaControl = CreateObject("ShockwaveFlash.ShockwaveFlash")

	If(IsObject(FlaControl)) Then
		FlaVersion = FlaControl.FlashVersion()
	End If
	getIeFlashVersion = FlaVersion

End Function