VB实现延时触发

学习中发现需要延时触发（不需要特别精确），查阅不少资料，发现都不是很好，琢磨老久发现下面的代码似乎可以实现：

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Timer1_Timer()     'Timer1.Interval=1000
    t = Timer
    Text1 = t     '实现每隔2s输出timer值
    Sleep (1000)
End Sub

~-~ :) 班门弄斧，贻笑大方了，请高手指点！