测试应用程序运行的总耗费时间

Dim Start As Long

'在应用load处添加以下代码
Start = Timer()

    '在应用程序运行结束前添加以下代码
    "总耗费时间 " + (Timer() - Start).ToString + " 毫秒"

    '调用的时间函数
    Public Function Timer() As Long
        Return (Now.Hour * 3600 + Now.Minute * 60 + Now.Second) * 1000 + Now.Millisecond
    End Function