User manual

ECE 477 Final Report Spring 2004

List1.RemoveItem (Counter)

List2.RemoveItem (Counter)

List3.RemoveItem (Counter)

Counter = Counter - 1

End If

myString = Combo1.Text

For Counter = 0 To (Combo1.ListCount - 1)

If (Combo1.List(Counter) = myString) Then

Combo1.RemoveItem (Counter)

Counter = Counter - 1

End If

'Combo1.RemoveItem (Counter)

Address = 0

OpCode = 1

Cmd = &H100

MSComm1.Output = Chr(1) + Chr(0) + Chr(0) + Chr(0) + Chr(0) + Chr(0) +

Chr(0) + Chr(0) + Chr(0) + Chr(0) + Chr(0) + Chr(0) + Chr(0) + Chr(0) +

Chr(0) + Chr(0)

SendToSerial " Your Table Is Ready!"

End Sub

F-27