sub window_onload

' Dim Result

'  Set Result = window.open ("Splashs\Splash_01.htm", "Splash_01", '"toolbar=no, location=no, directories=no, status=no, menubar=no, 'scrollbars=no, resizable=no, copyhistory=no, width=450, height=195, 'left=10, top=10")
'  Result.focus
'
'

end sub