关于mscomm控件的问题

Question

求哪位大侠帮助下小弟，需要一个mscomm的发送程序，要求很简单，只要在点击发送键后能发送给单片机一个数字，比如 0或者1或者2这种

Answer 1

Private Sub cmdsent_Click() 
    Dim strsent As String 
    strsent = txtsent.Text 'txtsent文本框内填写需发送的 0或者1或者2
    MsComm1.Output = strsent 
End SubPrivate Sub Form_Load() 
    With MsComm1 
        .InBufferSize = 5120 
        .CommPort = 1 
        .Settings = "9600,N,8,1" '设置好单片机所需的串口设置参数
        .RThreshold = 0 
        .PortOpen = True 
    End With
End Sub