Private Sub TimLeeren_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles TimLeeren.Tick
    If FeldLO.BackColor <> Color.White And
      FeldOben.BackColor <> Color.White And
      FeldRO.BackColor <> Color.White And
      FeldLinks.BackColor <> Color.White And
      FeldMitte.BackColor <> Color.White And
      FeldRechts.BackColor <> Color.White And
      FeldLU.BackColor <> Color.White And
      FeldUnten.BackColor <> Color.White And
      FeldRU.BackColor <> Color.White Then
      WeißFärben()
    End If
  End Sub

  Private Sub WeißFärben()
    Dim Weiß As New Color
    Weiß = Color.White
    FeldLU.BackColor = Weiß
  End Sub