Public Class SerialCommunication Dim TempStr As String ' 一時文字列 Private Sub SerialCommunication_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load With SerialPort1 .PortName = "COM1" .BaudRate = 1200 .…