Sub OpenWindow(FN,w,h)
    window.Open FN,"","width=" & w & ",height=" & h & ",top=" & ((window.screen.Height - h) / 2) & ",left=" & ((window.screen.Width - w) / 2) & ",fullscreen=no,channelmode=no,toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no","replace"
  End Sub