利用函数gettickcount就可以搞定，不过他是个api，需要声明一下下。
还有需要注意的是，这个函数返回的是毫秒，所以需要自己再转换单位的！
gettickcount得到的是操作系统到现在为止的运行时间，那么用两次的返回值相减就可以了。
option explicit
private declare function gettickcount lib "kernel32" () as long
dim a as long
private sub command1_click()
msgbox (gettickcount - a) '应用程序的运行时间
end sub
private sub form_load()
a = gettickcount
end sub
由于gettickcount返回的值是dword类型。因此，操作系统再运行了49.7天后，这个值就会归0。
