Sub mainSWF_FSCommand(ByVal command, ByVal args) select case command case "putHREF" window.Document.Location.Hash = args case "putTitle" Document.Title = args case "loadPage" window.Document.Location.Hash = args historyframe.Document.Open "text/html" historyframe.Document.Write "" historyframe.Document.Write "