使用Diagnostics.Stopwatch，獲取當前實例測量得出的運行時間，以毫秒為單位，直接上代碼：
Dim watch As New Diagnostics.Stopwatch
Dim a As Double
Dim b As Double
/*創(chuàng)建該全宗的第一級類別*/
watch.Start()
/*優(yōu)化前代碼體*/
CreateNode1()
watch.Stop()
a = watch.Elapsed.TotalMilliseconds
watch.Start()
/*優(yōu)化后代碼體*/
CreateNode2()
watch.Stop()
b = watch.Elapsed.TotalMilliseconds
demo.WriteLog("優(yōu)化前：" & a.ToString & ";優(yōu)化后：" & (b - a).ToString & ";提速百分比：" & (2 - b / a).ToString & vbCrLf)
優(yōu)化執(zhí)行日志
