<script language="VBScript"> Option Explicit sub window_OnLoad() call myLightObject.filters.light(0).addambient(0,0,255,30) call myLightObject.filters.light(0).addcone(400,400,200,100,100,200,204,200,80,10) end sub sub document_onMouseMove() call myLightObject.filters.light(0).MoveLight(1,window.event.x,window.event.y,0,1) end sub </script>