Private Sub TimerMSCReceive_Timer() If MSComm.InBufferCount > 0 Then TextMSCReceive.Text = TextMSCReceive.Text + MSComm.Input End If TextMSCReceive.SelStart = Len(TextMSCReceive.Text)End Sub
