Look carefully at the name of the control selected by LZ's COM port. The number 1 is the letter L in the code, so the COM port cannot be selected.
Revise as follows:
Private? Sub？ Combo 1_Click()
What if? MSComm 1。 PortOpen？ =? Really? then
MSComm 1。 PortOpen？ =? "False" closes the communication port.
End? if
MSComm 1。 CommPort？ =? Combo 1。 ListIndex？ +? 1
Text3？ =? MSComm 1。 Communication port
End? submarine
Private? Sub？ Command 1_Click()
Open? Mistakes? GoTo？ U error
What if? Command 1. Title? =? "Close the serial port"? then
MSComm 1。 PortOpen？ =? wrong
Command 1. Title? =? "Open serial port"
Shape 1。 FillColor？ =? & ampHFFFFC0
other
MSComm 1。 PortOpen？ =? real
Command 1. Title? =? "Close the window"
Shape 1。 FillColor？ =? & ampHFF
End? if
Quit submarine
U error:
msg$？ =? "Invalid port number"
Title $? =? "Serial Debugging Assistant"
x？ =? MsgBox(msg$，？ 48,? Title $)
End? submarine
Private? Sub？ form_load()
What if? MSComm 1。 PortOpen？ =? Really? then
MSComm 1。 PortOpen？ =? wrong
other
End? if
Combo 1。 AddItem？ " COM 1 "
Combo 1。 AddItem？ " COM2 "
Combo 1。 AddItem？ " COM3 "
Combo 1。 AddItem？ " COM4 "
Combo 1。 AddItem？ " COM5 "
Combo 1。 AddItem？ " COM6 "
Combo 1。 AddItem？ " COM7 "
Combo 1。 AddItem？ " COM8 "
Combo 1。 ListIndex？ =? 0
MSComm 1。 CommPort？ =? Combo 1。 ListIndex？ +? 1
MSComm 1。 Settings? =? 19200，n，8， 1
Command 1. Title? =? "Open serial port"
Shape 1。 FillColor？ =? & ampHFFFFC0
Option 2. Value? =? real
Combination 2. AddItem？ "256000"
Combination 2. AddItem？ " 128000"
Combination 2. AddItem？ " 1 15200"
Combination 2. AddItem？ "57600"
Combination 2. AddItem？ "38400"
Combination 2. AddItem？ "28800"
Combination 2. AddItem？ " 19200"
Combination 2. AddItem？ "9600"
Combination 2. AddItem？ "4800"
Combination 2. AddItem？ "2400"
Combination 2. AddItem？ " 1200"
Combo3。 AddItem？ "No? None "
Combo3。 AddItem？ "Strange? Weird "
Combo3。 AddItem？ "even? Even "
Combo4。 AddItem？ "4"
Combo4。 AddItem？ "5"
Combo4。 AddItem？ "5"
Combo4。 AddItem？ "6"
Combo4。 AddItem？ "7"
Combo4。 AddItem？ "8"
Combination 5. AddItem？ " 1"
Combination 5. AddItem？ "2"
MSComm 1。 InBufferSize？ =? 1024
MSComm 1。 External buffer size? =? 5 12
MSComm 1。 RThreshold？ =? 1
End? submarine
Private? Sub？ MSComm 1 _ on com()
Dim? BytReceived()？ As? byte
Dim? Me? As? integer
Choice? Case? MSComm 1。 CommEvent
Case? comEventRxOver
Text 1。 Words? =? ""
Quit submarine
Case? comEvReceive
MSComm 1。 InputLen？ =? 0
strBuff？ =? MSComm 1。 invest
What if? MSComm 1。 InputMode？ =? comInputModeBinary？ then
BytReceived()？ =? strBuff
For what? Me? =? 0? Where to? UBound (received bytes)
What if? Len(Hex(BytReceived(i)))？ =? 1? then
strData？ =? strData？ & amp？ "0"? & amp？ Hex(BytReceived(i))？ & amp？ ""
other
strData？ =? strData？ & amp？ Hex(BytReceived(i))？ & amp？ ""
End? if
then
Text 1？ =? Text 1？ & amp？ strData
strData？ =? ""
other
Text 1？ =? Text 1？ & amp？ strBuff
End? if
End? choose
End? submarine
Private? Sub？ Option 1_Click()
MSComm 1。 InputMode？ =? comInputModeText
End? submarine
Private? Sub？ Option2_Click()
MSComm 1。 InputMode？ =? comInputModeBinary
End? submarine