Function flashdetektalas(minverzio)
	dim maxverzio
	maxverzio = 10
	dim van_plugin
	van_plugin = false
	Do
		On Error Resume Next
		van_plugin = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & maxverzio & "")))
		If van_plugin = true Then Exit Do
		maxverzio = maxverzio - 1
	Loop While maxverzio >= minverzio
	flashdetektalas = van_plugin
End Function