Something

Public Class Form1
    Dim rofelix As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If rofelix = 0 Then
            lblol.BackColor = Color.Red
            lblmao.BackColor = Color.Transparent
        ElseIf rofelix = 1 Then
            lblmao.BackColor = Color.Orange
        ElseIf rofelix = 2 Then
            lblol.BackColor = Color.Transparent
            lblmao.BackColor = Color.Transparent
            lblan.BackColor = Color.Green
        ElseIf rofelix = 3 Then
            lblmao.BackColor = Color.Orange
            lblan.BackColor = Color.Transparent
        End If
        If Not rofelix = 3 Then
            rofelix = rofelix + 1
        Else
            rofelix = 0
        End If
    End Sub
End Class