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

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

    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