Dim Pflash, i,x
for i = 4 to 7
	Set x = CreateObject("ShockwaveFlash.ShockwaveFlash." & i)                           
	If IsObject(x) Then
				Pflash = 1 
				Vflash = i
				   
	End If
next
set x = nothing