Dim num As Integer
Dim data0 As Byte
Dim data1 As Byte
Dim data2(11) As Byte
Dim data3 As Byte
Private Sub Command1_Click()
MSComm1.PortOpen = True
Label1.Caption = "On-Line"
End Sub

Private Sub Command2_Click()
While num < 10
Text1.Text = num
Text2.Text = data2(num)
data1 = num + 64
data3 = (data1 Xor data2(num)) And &H7F
MSComm1.Output = Chr(data0)
MSComm1.Output = Chr(data1)
MSComm1.Output = Chr(data2(num))
MSComm1.Output = Chr(data3)
num = num + 1
Call delay
Wend
num = 0
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
Label1.Caption = "Off-Line"
data0 = &HFF
data2(0) = 125
data2(1) = 170
data2(2) = 153
data2(3) = 135
data2(4) = 115
data2(5) = 125
data2(6) = 170
data2(7) = 155
data2(8) = 138
data2(9) = 140
num = 0
End Sub