' Calcule la version du player
Function VBGetSwfVer(i)
  On Error Resume Next
  Dim swControl, swVersion
  swVersion = 0
  
  set swControl = CreateObject("ShockwaveFlash.ShockwaveFlash." + CStr(i))
  if (IsObject(swControl)) Then
  	'swVersion = swControl.GetVariable("$version")
    swVersion = i
   	If (swVersion = 1) Then
   		swVersion = 6
   	end If
  end If
  VBGetSwfVer = swVersion
End Function

' intercepte les messages fscommand du movie d'intallation express playerProductInstall
Sub playerProductInstall_FSCommand(ByVal command, ByVal args)
	Call playerProductInstall_DoFSCommand(command, args)
End Sub