Private Sub tmrSendRecv_Tick(ByVal sender As System.Object, 
                             ByVal e As System.EventArgs) Handles tmrSendRecv.Tick
    Dim sendData(63) As Byte
    Dim recvData(63) As Byte
    sendData(0) = &H20              'コマンド ：デジタル入出力
    sendData(1) = &H1               '出力１：Ｊ１
    sendData(2) = byteOutJ1         '値
    sendData(3) = &H2               '出力２：Ｊ２
    sendData(4) = byteOutJ2         '値
    sendData(63) = &H0              'シーケンス
    SendRecv(sendData, recvData)    '送受信
    byteInJ1 = recvData(1)          'Ｊ１入力値
    byteInJ2 = recvData(2)          'Ｊ２入力値

    'ここに改造ーコードを追加
    If (byteInJ2 And Byte.Parse("00000001", 2)) = 0 Then    'J2-0が0の場合
        byteOutJ1 = byteOutJ1 Xor Byte.Parse("00000001", 2) 'J1-0のビット反転
    End If

    chgIoColor()
End Sub