Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, _
ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) _
Handles SerialPort1.DataReceived
Static flg As Boolean
If flg = True Then
Exit Sub
End If
flg = True
'処理
flg = False
End Sub
