vb如何实现定时调用一个函数的功能

Private Sub Form_Load()
Timer1.Interval = 60000 '60秒检测一次当前日期
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
if date=#2010-5-9# then '如果日期为2010-5-9则调用函数
call 要调用的函数名
timer1.enabled = false '调用完毕要关闭timer，否则在这一天会反复调用
end if
End Sub

用timer控件，在事件里面调用，就可以了 记得设置 时间间隔。

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Timer1.Interval = 2000 '2秒一次
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Dim s$, cnt&, dl&
cnt& = 199
s$ = String$(200, 0)
dl& = GetUserName(s$, cnt)
Debug.Print Left$(s$, cnt)
End Sub