取得程式執行時間

Dim dteStart As DateTime= Now
Dim TS As TimeSpan= Now.Subtract(dteStart)
Me.tbxMsg.AppendText("執行時間: " & TS.TotalMilliseconds & " 毫秒")