elapesdtime如何用的

请教各位elapesdtime怎么用的？
我想获取程序运行时间，然后按不同的时间做不同的事情。貌似tick count ，elapesdtime等语句能实现，但不知道具体用法，求指导。

[解决办法]
定义一个全局变量t0
程序开始时，（Mian函数，或者MainForm_load事件中）
t0=gettickcount 'api调用，在api viewer中找


任何时候：
t=gettickcount-t0 '就是程序开始时候到调用时刻，经历的时间，单位毫秒



[解决办法]

VB code

Option ExplicitPrivate lTick1&, lTick2&Private Declare Function GetTickCount Lib "kernel32" () As LongPrivate fTaskOk As BooleanPrivate Sub Form_Load()    lTick1& = GetTickCount: fTaskOk = False    Timer1.Interval = 1000    Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()    lTick2& = GetTickCount    If (fTaskOk = False) And (lTick2& - lTick1& > 60000) Then        '要做的事情                fTaskOk = True    End IfEnd Sub
[解决办法]
模块中定义，可以是这样
.bas模块

dim t0 as long
sub main
t0=gettickcount
load form1
form1.show
end sub