先做准备工作，大家可以找个无聊的恐怖故事，然后找个恐怖图片，要大！拿起你的话筒，打开录音机，对着话筒想象你最恶心的事，然后……（录的wav不要太长）。

打开你的vb。
先做个mainfrom然后背景黑点，弄个无聊的恐怖故事放在text中给大家看，如果喜欢还可以用timer修改text的top来移动文字。在部件中把microsoft multimedia contral6.0加上,然后在主窗体上画个mmcontrol（当然vidible要为false)。文件名不要写路径（到时把wav,copy到同一路径下就可以了）。然后在通用里，dim time as long '作为计时器,public as kaiguan (做一个开关），在form_load中time=0 kaiguan=1
主窗口里加上一个timer，interval为1000，enabled为true。
然后每次把time自加一，然后用

if time =“自己定义的‘虚假退出’时间” and kaiguan=1 then
调用子窗口1‘这是一个虚假的子窗口，别人会以为这个无聊的程序结束了，其实他关掉的是一个子窗口。
kaiguan=0 '关上开关
form1.visible=false’隐藏主窗口。
endif

if (time mod “自己想让恐怖画面出现的时间”）=0 then

MMControl1.Command = "sound" ’你播放录的声音
调用子窗口2'子窗口2当然是恐怖的东东了
time=0 '很重要的一步，否则你的程序也许会溢出错
endif

两个自窗口，第一个是一个虚假退出窗口，用来蒙骗人家，让人家以为程序结束了。第二个是用来吓人的，可以做抖动效果……，自己发挥想象吧！不要忘记用时间控件让它定时消失！

呵呵，好黑呀！！！！！！！！！！