新建From1（窗体），新建Command1（按钮CommandButton），代码：

运行多次结果：

这种方式，用子程序大概是2倍多点的耗时。

如果生成本地代码，代码速度优化，方法1：250ms，方法2：1秒78毫秒。

如果生成本地代码，代码大小优化，方法1：250ms，方法2：1秒125毫秒。

如果生成本地代码，无优化，方法1：250ms，方法2：1秒125毫秒。

如果生成本地代码，打钩TM优化和产生符号化调试信息不影响上面的速度。

如果生成P-代码，方法1：390ms，方法2：1秒188毫秒。

关于精确时间，请参考《VB6 利用API获得时间戳精确到毫秒并计算开始和结束时间的差到天日时分秒毫秒，子函数 f_TimeStampToStr》