on error resume next

If VB = "true" Then
	For i = 2 to 9
		If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then

		Else
			flash_installed = "true"
			flash_version = i
		End If
	Next
End If