高分寻求一个程序，利用MSComm控件（或其他的）通过串口控制一个继电器，会者请进..

使用串口的RTS和DTR信号可以进行简单的控制。
下面的工程的窗体包含4个按钮，一个MSComm控件Private Const COMPORT = 1
Private Sub Command1_Click()
  MSComm1.RTSEnable = True
End SubPrivate Sub Command2_Click()
  MSComm1.RTSEnable = False
End Sub
Private Sub Command3_Click()
  MSComm1.DTREnable = True
End SubPrivate Sub Command4_Click()
  MSComm1.DTREnable = False
End SubPrivate Sub Form_Load()
  '
  Command1.Caption = "打开继电器 1"
  Command2.Caption = "关闭继电器 1"
  Command3.Caption = "打开继电器 2"
  Command4.Caption = "关闭继电器 2"
  
  On Error GoTo PortErr
  MSComm1.CommPort = COMPORT
  MSComm1.PortOpen = True
  Exit Sub
   
PortErr:
  MsgBox "无法打开通讯口" & COMPORT, vbCritical
  End
End SubPrivate Sub Form_Unload(Cancel As Integer)
   MSComm1.PortOpen = False
End Sub