VB 实现自动发送功能 ，急！！！

Question

写一个小程序，每天晚上只要到八点钟，就要自己执行自己写好的函数或方法，请问各位朋友，如何实现到了这个时间点自动执行的功能。

Answer 1

用 Timer 控件.如:
Option ExplicitPrivate Sub Form_Load()
  Timer1.Enabled = True
  Timer1.Interval = 100
End Sub
Private Function def_Function()
  MsgBox "时间到了"
End FunctionPrivate Sub Timer1_Timer()
  If Time > CDate("20:00:00") And Time < CDate("20:01:00") Then  '设置如果是20：00：00-20：01：00之间就运行，
     Call def_Function
     Timer1.Enabled = False '设置只运行一次
  End If
End Sub