如何不用窗体（用模块）设计一个定时程序（vb）

如果仅仅只希望要设计的程序不在任务管理器的“应用程序”中显示，如下即可：

Private Sub Form_Load()
App.TaskVisible = False
End Sub

Sub Main()
App.TaskVisible = False
'//在进程列表里面仍然能看见。。。。

Do Until Now ="2009-3-20 00:10:10"
'//循环判断是否到时间。
'//后面的时间要写成 年(4位)-月-日 时:分:秒"的格式。
Loop

'//时间到，跳出循环
MsgBox "时间到了！",vbInformation,"闹钟提示"

End sub

理论上可以！
把代码放在main过程就可以，但是只能执行一次，没有控件的支持，程序不好用
sub main()

end sub

想程序到后台运行把 窗体 的visible 设置为false不就得了！
Private Sub Form_Load()

App.TaskVisible = False
Me.Visible = False

End Sub

应该只能用api了，楼上的方式不可行，cpu 100%