Private Sub Buttontimer_Tick(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Buttontimer.Tick
 
        If Fläche1.BackColor = Color.Transparent Then
            Fläche1.BackColor = Color.Green
        ElseIf Fläche1.BackColor = Color.Green Then
            Fläche1.BackColor = Color.Yellow
        ElseIf Fläche1.BackColor = Color.Yellow Then
            Fläche1.BackColor = Color.Red
        End If
 
    End Sub