В других ответах есть хороший совет высокого уровня, но с практической точки зрения это довольно просто. Есть два управляющих входа (DSR и CTS) и два управляющих выхода (DTR и RTS). DTR находится на контакте 4 (9-контактная версия), а RTS на контакте 7. DSR / CTS - это контакты 6 и 8.
Поместите объект Comm Port в форму VB и установите .CommPort на номер вашего порта. Для целей чистого логического управления не имеет значения, какой .Settings (скорость передачи и т. Д.) Вы используете, потому что вы не будете отправлять и получать какие-либо последовательные данные, поэтому просто примите значения по умолчанию.
Установите .PortOpen = True, затем измените выходы DTR и RTS, установив .DTREnable / .RTSEnable на true или false, как требуется. Вы должны установить эти значения False во время разработки, чтобы избежать ложных срабатываний. Помните, что эти линии могут переключаться системой при перезагрузке ПК.
Вы можете опросить свойства .CTSHolding и .DSRHolding, чтобы обнаружить изменения на этих входах, или отреагировать на событие .OnComm, которое будет сигнализироваться при изменении любого из них. Вам все еще нужно разобраться, какой из них вызвал событие, но это всего лишь случай выбора.