一个屏保。
   可是,它只能响应KEYDOWN,无法响应mousemove 事件    
    如下。
      Dim intwaittimn as intger
      form_mousemove(.............)
        intwaittime=intwaittime+i
      if intwaittime>10 then
      .................(退出语句,)WAY???