网络收藏

option   explicit  
   
  private   sub   command1_click()  
  end  
  end   sub  
   
  private   sub   form_load()  
  dim   shijian   as   data  
   
   
  const   ams   =   "08:00:00"  
  上午工作时间  
  const   ame   =   "12:00:00"  
  上午下班时间  
  const   pms   =   "14:00:00"  
  下午工作时间  
  const   pme   =   "17:00:00"  
  下午下班时间  
   
  shijian   =   time()  
  读取当前时间  
   
  if   (shijian   >   ams   and   shijian   <   ame)   or   (shijian   >   pms   and   shijian   <   pme)   then  
  label1.caption   =   "上班时间不要玩游戏啊！"  
  ole1.visible   =   false   上锁  
  else  
  label1.caption   =   "欢迎游戏，请双击游戏图标"  
  ole1.visible   =   true   开锁  
  end   if  
  end   sub  
   
  那位高手给看看啊，运行出现标题上的错

推荐阅读