Private Sub Button_clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
tbRx.Text = String.Empty
tbTx.Text = String.Empty
End Sub
''' <summary>
''' write content of Textbox to Port
''' </summary>
Private Sub button_send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
If comOpen Then SerialPort1.WriteLine(tbTx.Text)
End Sub