VB 计算自己程序段所用时间

'1.声明API函数：

Private Declare Function GetTickCount Lib "kernel32" () As Long

'2.代码

Private Sub command1_Click()

    Dim StartT As Long  '获取运算开始时间

    Dim SpendT As Long '获取运算结束时间

    StartT = GetTickCount

    ' 程序代码＝＝＝＝＝＝＝

    '

    '程序代码＝＝＝＝＝＝＝

    SpendT = GetTickCount - StartT

    MsgBox "本次操作耗时:" & SpendT / 1000 & "秒"

End Sub