Dim buttons() As Button = {Button4, Button5, Button6, Button7, Button8, _
          Button9, Button10, Button11}
 
        Dim wert As Byte = 143
 
 
        For i As Integer = 0 To 7
            If wert And &H80 Then
                buttons(i).BackColor = Color.Black
            Else
                buttons(i).BackColor = Color.Red
            End If
            wert = wert << 1
        Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist