Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer2.Tick
        Dim test_sensor As Int32 = Inp(889) And 16
        If test_sensor <> 16 Then
            Select Case automation
                Case 0
                    Out(888, Inp(888) Or 128) 'Led D7 ist An
                    Button8.BackColor = Color.Red
                Case 1
                    Out(888, Inp(888) Or 128) 'Led D7 ist An
                    Button8.BackColor = Color.Yellow
                Case 2
                    Out(888, Inp(888) Or 128) 'Led D7 ist An
                    Button8.BackColor = Color.Blue
                Case Is <> 0, 1, 2
                    Out(888, Inp(888) And 126)
                    Button8.BackColor = Color.WhiteSmoke
            End Select
        Else
            Out(888, Inp(888) And 126)
            Button8.BackColor = Color.WhiteSmoke
        End If
    End Sub

fg viperbone