VB串口編程 如何利用數組和定時器按時依次發送數組中的數據？

Dim i As Integer

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Form_Load()

Timer1.Enabled = False

Timer1.Interval = 1000

MSComm1.Settings = "9600,n,8,1"

MSComm1.RThreshold = 1

MSComm1.PortOpen = True

cycle(1) = "#4p1900"

cycle(2) = "#4p1600"

cycle(3) = "#4p1800"

cycle(4) = "#4p1400"

End Sub

Private Sub Timer1_Timer()

i = i + 1

MSComm1.Output = cycle(i)

If i >= 4 Then

i = i - 4

End If

End Sub