on error resume next
	FlashInstalled = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash")))
	If FlashInstalled = -1 Then
		call flash_menu(1)
	Else
		call flash_menu(0)
	End If