Function checkFlash()
	on error resume next
	If MSDetect = "true" Then
		For count = 2 to 11
			If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & count))) Then
				
			Else
				flashavailable = 2
				flashversion = count
			End If
		Next
	End If

End Function