Function VBGetSwfVer()
	Dim i, _
		x, _
		MM_FlashControlInstalled, _
		MM_FlashControlVersion

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
	
	x = null
	
	VBGetSwfVer = MM_FlashControlVersion
End Function