If vbs = "true" Then
	Private i, x, MM_FlashControlVersion
	On Error Resume Next
	x = null
	MM_FlashControlVersion = 0
	var Flashmode
	FlashMode = False
	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
	FlashMode = (MM_FlashControlVersion >= 6)
End If

Sub swf_FSCommand(ByVal command, ByVal args)
	call swf_DoFSCommand(command, args)
end sub