主题：[求助]计时器代码效率问题

以下内容为程序代码:

1 Dim CheckBox As WinForm.CheckBox = e.Form.Controls("WatchBox")
2 If CheckBox.Checked = True Then
3 ARTCount = ARTCount + 1
4 If VarD0 = 2 Then
5 Count = Count + 1
6 End If
7 End If

以下内容为程序代码:

1 If e.Sender.Checked = True Then
2 VarD0 = 2
3 e.Form.TimerEnabled = True
4 D0Date = Date.Now
5 Else
6 VarD0 = 3
7 e.Form.TimerEnabled = False
8 Dim st As Date = D0Date
9 e.Form.Controls("ShowStr").Text = "耗时:" & (Date.Now - st).TotalMilliseconds & "毫秒 采集：" & ARTCount & "次 计" & Count & "次"
10 Count = 0
11 ARTCount =0
12 End If

以下内容为程序代码:

1 Dim Val() As Byte = New Byte() {1, 4, 1, 0, 0, 8, 240, 48}
2 For i As Integer = 0 To 99
3 Threading.Thread.Sleep(5)
4 Ports("COM3").Write(Val, 0, Val.Length)
5 Next