其实定时运行程序的VB原理很简单，有些基础的就能知道。

首先建立一个TIMER控件，把TIMER的Interval属性设置成100

给TIMER控件加入以下代码

Private Sub Timer1_Timer()
Dim a
a = #12:00:00 AM# ’发作的时间，自己可以修改

Form1.Caption = Time ’把FORM1的标题改成时间以便form写内容

If Form1.Caption = a Then

msgbox "Your Computer Have virus!", 48, "Notice" ’这个是时间到了后自动弹出的对话框，也可以把它改成别的。也可以不提示。！

End If

End Sub