Label Warna

   If Label1.ForeColor = Color.White Then
                Label1.ForeColor = Color.Red
            ElseIf Label1.ForeColor = Color.Red Then
                Label1.ForeColor = Color.Yellow
            ElseIf Label1.ForeColor = Color.Yellow Then
                Label1.ForeColor = Color.Green
            ElseIf Label1.ForeColor = Color.Green Then
                Label1.ForeColor = Color.Pink
            ElseIf Label1.ForeColor = Color.Pink Then
                Label1.ForeColor = Color.White
            End If