'hex --------------------------------------------------- If optTX(1).Value = True Then TXStatus.Caption = "" TXStatus.ForeColor = vbYellow TXStatus.Caption = "Sending TX Window Data As Hex" For Pntr = 1 To Len(rtbTX.Text) - 1 Step 2 '''3 TXchr = Mid$(rtbTX.Text, Pntr, 2) HB = UCase$(Left$(TXchr, 1)): LB = UCase$(Right$(TXchr, 1)) DoEvents Select Case HB Case "0" To "9" HB1 = (Asc(HB) - 48) * 16 Case "A" To "F" HB1 = (Asc(HB) - 55) * 16 End Select Select Case LB Case "0" To "9" LB1 = (Asc(LB) - 48) Case "A" To "F" LB1 = Asc(LB) - 55 End Select HLB1 = HB1 + LB1 If chkEcho.Value = 1 Then If optRX(2).Value = True Then rtbRX.SelLength = Len(rtbRX) rtbRX.SelColor = vbGreen rtbRX.SelText = TXchr End If If optRX(1).Value = True Then rtbRX.SelLength = Len(rtbRX) rtbRX.SelColor = vbMagenta rtbRX.SelText = Right$("00" + Hex(HLB1), 2) ' & "," End If End If TXChr1 = Chr(HLB1) MSComm1.Output = TXChr1 If CharDel1 > 0 Then CharDel.Enabled = True flgCharDel = 0 Do While flgCharDel = 0 DoEvents Loop Else TempDelay = CharCount Do While TempDelay > 1 TempDelay = TempDelay - 1 DoEvents Loop End If pbar1.Value = Pntr DoEvents If optTX(0).Value = True Then Pntr = 1 pbar1.Value = 0 Exit Sub End If Next Pntr End If