on error resume next
	FlashInstalled = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash")))
	If FlashInstalled = -1 Then
		call flash_menu(1)
		Dim swControl, classname
		classname = "ShockwaveFlash.ShockwaveFlash.5"
		set swControl = CreateObject(classname)
		If (IsObject(swControl)) then
			call flash5_menu(1)
		Else
			call flash5_menu(0)
		End If

	Else
		call flash_menu(0)
		call flash5_menu(0)
	End If