Option Explicit
'Private Sub btnSendPacket_Click()
' Dim X As Long
' Dim Packet() As Byte
' Dim PktLen As Integer
'
' PktLen = 8 + udLen.Value
' ReDim Packet(PktLen - 1)
' For X = 0 To 5
' Packet(X) = Val(txtOut(X).Text)
' Next X
' If udLen > 0 Then
' For X = 6 To 6 + udLen.Value - 1
' Packet(X) = Val(txtOut(X).Text)
' Next X
' End If
' For X = 10 To 11
' Packet(X - (4 - udLen.Value)) = Val(txtOut(X).Text)
' Next X
' SendCommandData XMTPT_SEND_TEST_PACKET, Packet
'End Sub
'Private Sub txtOut_Change(Index As Integer)
' Dim X As Long
'
' If Index < 10 Then
' Dim Sum As Long
' Sum = 0
' For X = 0 To 5
' Sum = Sum + Val(txtOut(X).Text) ' add first 6 bytes to checksum
' Next X
' If udLen > 0 Then
' For X = 6 To 6 + udLen.Value - 1
' Sum = Sum + Val(txtOut(X).Text) ' add byte to checksum
' Next X
' End If
'
' Sum = &H1000000 - Sum
' txtOut(10).Text = "&H" + Hex((Sum And &HFF00&) / 256) ' MSB first!
' txtOut(11).Text = "&H" + Hex(Sum And &HFF&)
' End If
'End Sub
'Private Sub udLen_Change()
' Dim idxTxt As Integer
' txtOut(5).Text = Str(udLen.Value)
' For idxTxt = 6 To 9
' txtOut(idxTxt).Visible = CBool(idxTxt < (6 + udLen.Value))
' Next idxTxt
'End Sub
Private Sub frCommunications_DragDrop(Source As Control, X As Single, Y As Single)
End Sub