Function getFlashControlVersion( i )

	on error resume next

	Dim flaControl, flaVersion

	flaVersion = 0

	set flaControl = CreateObject( "ShockwaveFlash.ShockwaveFlash." + CStr( i ) )

	if ( IsObject( flaControl ) ) then
		flaVersion = flaControl.FlashVersion( )
	end if

	getFlashControlVersion = flaVersion

End Function