大虾们帮我看看这个串口通讯程序，我不用虚拟串口也能发送成功

Question

'串口初始化
Private Sub Form_Load()
  MSComm1.CommPort = 2           '设置通信端口号为COM2
  MSComm1.Settings = "9600,n,8,1"      '设置串口参数 9600波特率，无校验，8位数据位，1位停止位
  MSComm1.InputMode = 0 '接收文本型数据End Sub
Private Sub Command1_Click()MSComm1.Output = TextSend.Text '发送TextSend的内容
End Sub
Private Sub Command6_Click()
  Timer1.Enabled = True '运行计时器控件
End Sub'定时自动从输入缓冲区发送字符
Private Sub Timer1_Timer()
 
   MSComm1.Output = TextSend.Text '发送文本2的内容End Sub
Private Sub Command2_Click()
TextReceive.Text = "" '清空接收区
End SubPrivate Sub Command3_Click()
TextSend.Text = "" '清空发送区
End Sub
Private Sub Command4_Click()
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True  '打开串口End Sub'在OnComm 事件中接收数据Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent '返回最近的通讯事件或错误
Case comEvReceive   ' 收到 RThreshold # of
Dim hk As Variant
hk = MSComm1.Input
TextReceive.Text = TextReceive.Text & hk
End Select
End Sub
'关闭通信端口,停止程序运行
Private Sub Cmdquit_Click()
  MSComm1.PortOpen = False
  End
End Sub                 不知道是虚拟串口的问题还是程序的问题，麻烦各位了！

Answer 1

看看这个：Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command5_Click()
    If msccomm1.PortOpen Then MSComm1.PortOpen = False
    Unload Me
End Sub
Private Sub Form_Load()
    MSComm1.CommPort = 2 '设置通信端口号为COM2
    MSComm1.Settings = "9600,n,8,1" '设置串口参数 9600波特率，无校验，8位数据位，1位停止位
    MSComm1.InputMode = 0 '接收文本型数据
    MSComm1.RThreshold = 1
    MSComm1.InputLen = 1
End Sub
Private Sub Command1_Click()
    MSComm1.Output = TextSend.Text '发送TextSend的内容
End Sub
Private Sub Command6_Click()
  Timer1.Enabled = True '运行计时器控件
End Sub'定时自动从输入缓冲区发送字符
Private Sub Timer1_Timer()
    MSComm1.Output = TextSend.Text '发送文本2的内容
End Sub
Private Sub Command2_Click()
    TextReceive.Text = "" '清空接收区
End SubPrivate Sub Command3_Click()
    TextSend.Text = "" '清空发送区
End Sub
Private Sub Command4_Click()
    If MSComm1.PortOpen = False Then MSComm1.PortOpen = True '打开串口
End Sub'在OnComm 事件中接收数据Private Sub MSComm1_OnComm()
    Select Case MSComm1.CommEvent '返回最近的通讯事件或错误
    Case comEvReceive ' 收到 RThreshold # of
        Sleep 20
        Dim hk As Variant
        Do
            hk = MSComm1.Input
            TextReceive.Text = TextReceive.Text & hk
        Loop Until MSComm1.InBufferCount > 0
End Select
End Sub