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