程序启动太慢，想知道各个模块分别花了多长时间，该怎么办？

GetTickCount VB声明 
Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long 
说明 
用于获取自windows启动以来经历的时间长度（毫秒） 
返回值 
Long，以毫秒为单位的windows运行时间 模块开始前取一次，结束后再取一次，中间用的时间就是二者之差