on error resume next 
If MSDetect Then
	If IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash")) Then 
		HasFlash = 1 
	End If
End If