给个思路!该怎么处理

给个思路!!!!
小弟的需求大概是这样的:
目前有在使用一套软件系统,这套系统一天24小时都会在运行,现在想实现这样的功能
当电脑的时间显示为16:00的时候(每天都要做),自动触发一个事件,来记录一些数据,
那这个 "每天16:00的时候触发事件 ",要怎么去实现,需要用到什么技术啊
在线等!!!!!

------解决方案--------------------
用一个timer控件，在timer事件中设置
if hour(now)= "16 " then doYourJob
------解决方案--------------------
楼上正解！
别忘了设置timer控件的Interval属性
------解决方案--------------------
要求很精确么??

如果16.59 触发也无所谓的话别就把时钟间隔尽可能做大些以此节省资源

如果一定要16:00的话,就把时间间隔做成1000
每秒判断,如果是16:00 就执行!

if hour(now)=0 and Minute(now)=0 and Second(now)=0 then doYourJob
------解决方案--------------------
Option Explicit

Private Declare Function SetTimer Lib "user32 " (ByVal hwnd As Long, _
ByVal nIDEvent As Long, _
ByVal uElapse As Long, _
ByVal lpTimerFunc As Long) As Long

Private Declare Function KillTimer Lib "user32 " (ByVal hwnd As Long, _
ByVal nIDEvent As Long) As Long


Private m_lTimer As Long

Private Sub Timer_Proc(ByVal lngHwnd As Long, _
ByVal nIDEvent As Long, _
ByVal uElapse As Long, _
ByVal lpTimerFunc As Long)

'/* timer return

On Error GoTo Handler

‘你的任务在这里处理
Exit Sub

Handler:
Kill_Timer

End Sub

Public Sub Start_Timer(ByVal lInterval As Long)
'/* start the timer

m_lTimer = SetTimer(0&, 0&, lInterval, AddressOf Timer_Proc)

End Sub

Public Sub Kill_Timer()
'/* kill timer

KillTimer 0&, m_lTimer

End Sub