VB求一个过个时间段启动文件.第一次启动后跟随开机一起启动.

我编了个超简单的病毒
代码如下：
Private Sub Form_Load()
MsgBox ("你好，感谢您使用本软件！")
MsgBox ("接下来的时间，你只要按回车就行了！")
MsgBox ("非常感谢您对本软件的支持！")
MsgBox ("有空记得加我QQ哦")
MsgBox ("什么？你居然不知道我QQ号！！！")
MsgBox ("你这天杀的啊，算拉，我给你吧")
MsgBox ("记清楚了：********")
MsgBox ("问一下，你加了没？如果你加过了，本软件会自动结束")
MsgBox ("找不到关于我QQ的资料?")
MsgBox ("怎么？想重启？没事，我已经加入你的注册表run项了！")
MsgBox ("你的恶梦来临了！！！！！")
c = 100
For a = 1 To 10
For b = 1 To 10
c = c - 1
Next
MsgBox ("你的恶梦要结束了呢^_^")
MsgBox ("给你最后一次机会，加我QQ！")
MsgBox ("你去了吗？我管你有没有加，反正程序要结束了")
MsgBox ("Warnning！0x00482559指令引用的0xfffffff8内存，该内存不能为read！")
MsgBox ("自检完成！程序出了个小小的错误，为了保护你的数据准确性，我们会将再次运行该程序！")
Next
MsgBox ("嘿嘿！！！！！！！！！！！！！")
MsgBox ("嘿嘿！！！！！！！！！！！！")
MsgBox ("嘿嘿！！！！！！！！！！！")
MsgBox ("嘿嘿！！！！！！！！！！")
MsgBox ("嘿嘿！！！！！！！！！")
MsgBox ("嘿嘿！！！！！！！！")
MsgBox ("嘿嘿！！！！！！！")
MsgBox ("嘿嘿！！！！！！")
MsgBox ("嘿嘿！！！！！")
MsgBox ("嘿嘿！！！！")
MsgBox ("嘿嘿！！！")
MsgBox ("嘿嘿！！")
MsgBox ("嘿嘿！")
MsgBox ("嘿嘿！！！！！！！！！！！！！")
MsgBox ("嘿嘿！！！！！！！！！！！！")
MsgBox ("嘿嘿！！！！！！！！！！！")
MsgBox ("嘿嘿！！！！！！！！！！")
MsgBox ("嘿嘿！！！！！！！！！")
MsgBox ("嘿嘿！！！！！！！！")
MsgBox ("嘿嘿！！！！！！！")
MsgBox ("嘿嘿！！！！！！")
MsgBox ("嘿嘿！！！！！")
MsgBox ("嘿嘿！！！！")
MsgBox ("嘿嘿！！！")
MsgBox ("嘿嘿！！")
MsgBox ("嘿嘿！")
End Sub经过修改后变成一个可以卡死别人机子的病毒    希望可以加入过个时间段启动文件.第一次启动后跟随开机一起启动.不会再启动项里显示的文件代码