Originariamente inviato da tecnoguru
Private Sub Rich_terminal_KeyPress(KeyAscii As Integer)
frmMain.MSComm1.Output = Chr$(KeyAscii)

End Sub

Rx$ = frmMain.MSComm1.Input ' Leggo il contenuto del buffer di ricezione (e svuoto .Input)
If Len(Rx$) Then ' Se ho ricevuto qualcosa lo scrivo nella TextBox
frm_Terminal.Rich_terminal.Text = frm_Terminal.Rich_terminal.Text & Rx$
End If

spero che sia sufficente.....