上班时间玩电脑游戏，每一个老板见了都不高兴。如果你是办公室主任或者是电脑主管人员，想不想给电脑游戏上一把锁，使你的下属或同事在休息时间可以尽情地放松，而在上班时间要玩游戏则会受到限制呢？
我们就以给Windows中的空当接龙游戏加一把锁为例(给其他游戏加锁道理完全相同)，用VB编一个小程序。
首先，我们在窗体中添加一个LABEL控件、一个COMMAND控件和一个OLE控件。有关属性设置如下：
COMMANDI.CAIyFION=“找不想玩了！”
OLEI.SOURCEDOC =“ C:\WINIDOWS\FREECELL.EXE”
其中，”C:\WINDOWS\FREECELL.EXE”就是空当接龙的执行文件。
程序代码如下：
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Dim shijian As Date
Const ams=“08:00:00”
'上午下班时间
Const pms=“12: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
程序编制完成以后，把它编译成.EXE可执行文件，并为这个可执行文件创建一个快捷方式，再以空当接龙为名称把快捷方式复制到“开始→程序→附件→游戏”菜单中，把原来的空当接龙快捷方式覆盖掉。这样，只能在休息时间以通常的方式来玩这个游戏了。