function vb_flashMode(version)
  
	On Error Resume Next
	x = null
  MM_FlashControlVersion = 0
	
  For i = 9 To 1 Step -1
	  Set x = CreateObject("ShockwaveFlash.ShockwaveFlash." & i)
	
	  MM_FlashControlInstalled = IsObject(x)
	
	  If MM_FlashControlInstalled Then
		  MM_FlashControlVersion = CStr(i)
		  Exit For
	  End If
  Next
		
	If (MM_FlashControlVersion - version) >= 0 Then
	  vb_flashMode = 1
	Else 
	  vb_flashMode = 0  
	End If
	
end function