大俠幫忙，急求VB串口調試源碼,AscII碼傳輸的

Private strData as String

Private Sub Command1_Click() ' 發送

MSComm1.Output = "123456"

End Sub

Private Sub Form_Load()

MSComm1.Settings = "9600,N,8,1"

MSComm1.RThreshold = 1 ' 觸發ONCOMM事件

MSComm1.PortOpen = True

MSComm1.InputMode = comInputModeText ' ASCII接收

Text1 = ""

End Sub

Private Sub MSComm1_OnComm()

Select Case frmMain.MSComm1.CommEvent

Case comEvReceive

strData = Mscomm1.Input

Text1 = Text1 & strData

End Select

End Sub