VB如何通過串口發送漢字短信

Private Sub TimerMSCReceive_Timer()

If MSComm.InBufferCount > 0 Then

TextMSCReceive.Text = TextMSCReceive.Text + MSComm.Input

End If

TextMSCReceive.SelStart = Len(TextMSCReceive.Text)

End Sub