我把程序和源码都弄上来，其实都是在网上搜到的！希望对于和我一样的菜鸟有所帮助！
程序代码如下：
Private Sub Command1_Click()
Dim QQNum As String
QQNum = 328191852
Shell "C:\\Program Files\\Internet Explorer\\IEXPLORE.exe tencent://message/?uin=" + QQNum + ""
End Sub
'让窗体能够在开机时启动
Private Sub Form_Load()
Set w = CreateObject("wscript.shell")
w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
Timer1.Interval = 1000
End Sub

Private Sub Label4_Click()
Shell "explorer.exe http://user.qzone.qq.com/328191852"
End Sub
Private Sub Timer1_Timer()
Label1.BackStyle = 0
Label1.Caption = "系统当前日期及时间为：" & Date + Time '显示当前日期及时间
Label1.FontName = "楷体_GB2312"
Label1.FontSize = 18
Label2.BackStyle = 0
Label2.Caption = "作者留言：找编程爱好者一起交流一起学习!"
Label3.Caption = "作者：民中-黑蝎子"
Label3.BackStyle = 0
Label4.Caption = "≯进入黑蝎子地盘≮"
Label4.FontName = "楷体_GB2312"
Label4.FontSize = 13
Label4.BackStyle = 0
If Hour(Time) = 11 And Minute(Time) = 29 And Second(Time) = 50 Then '到了“11：29：50”的时候第二个窗体弹出
Form2.Show
Else
If Hour(Time) = 5 And Minute(Time) = 4 And Second(Time) = 50 Then '到了“5：4：50”的时候第二个窗体弹出
Form2.Show
End If
End If
End Sub
==============================================================================================================
'第二个窗体中的代码：
Private Sub Form_Load()
Timer1.Interval = 1000
Label1.Caption = 10
End Sub

Private Sub Timer1_Timer()
Me.ForeColor = &HFF00&
Me.Cls
Print "系统将在十秒后关闭，请您及时把您重要的文件进行保存，"
Print
Print "以免数据丢失！Quiting……"
Label1.Caption = Label1.Caption - 1 '标签的值减1即10-1，9-1，等等。
If Label1.Caption = 0 Then '当标签里的值等于零时调出提示窗口"时间到了！"
MsgBox "同学你好，放学时间到了，快回去吃饭休息吧，为下午的学习做好准备哟！加油！^_^", vbOKOnly, "还玩？放学啦！"
Else
If Label1.Caption < 0 Then '当标签里的值小于0时就会执行DOS的关机命令
Shell "c:\windows\system32\shutdown.exe /s /t 0"
End If
End If
End Sub

弄了一个晚上才弄好的，哎~鸟跟高手的差别在这节骨眼上最能显现！

恩 这个我也想过，不过如果我把它的Visibel值设为false的话那不就看不见咯？这样开机启动他们也不会发现！或者您有什么更好的方法，还望多多指教！谢谢！我是个初学者要的就是你这样的高手带！拜托啦！

呵呵 这位老兄真够幽默的！我喜欢·

2000的没有？？不可能吧我都用过了

其实shutdown 是可以停止的我知道怎么停止，就是把shutdown /s 改成shutdown /a就可以了

哦 程序中不是有个“Q我”的按钮吗？当单击“Q我”按钮时就会弹出QQ聊天窗口（前提条件是：你必须先打开你的QQ），这是我从QQ强聊器代码那里得来的思路，这样使用这个软件的用户就能随时和我交流并给我留些意见，
Private Sub Command1_Click() '单击按钮一，就是“Q我”那个按钮
Dim QQNum As String '定义QQNuM为字符串变量
QQNum = "328191852" '把我的QQ号的值赋给QQNum
Shell "C:\\Program Files\\Internet Explorer\\IEXPLORE.exe tencent://message/?uin=" + QQNum + ""
'用Shell函数打开IE并在地址栏里边输入 tencent://message/?uin=" + QQNum + "" 而=" + QQNum + ""里面的QQNum就是328191852 这一切都有“Q我”按钮自动完成！
其实你只要打开IE并在地址栏里面输入tencent://message/?uin=“任意人的QQ号码”（不带引号）
就能实现强行聊天拉！在这里我只不过用编程的手法来完成罢了

[此贴子已经被作者于2007-10-28 10:57:12编辑过]

恩 这倒是个好办法谢谢啦

不完全注解：
tencent---腾讯
message---消息、信息
呵呵 这个我也是在别人的代码中找到的，我自己都不知道是什么意思，汗不好意思啊。