// Pass fscommands from IE on to javascript function
Sub flashapp_FSCommand(ByVal command, ByVal args)
	//MsgBox "called the vbscript"
	call flashapp_DoFSCommand(command, args)
end sub