[VB] Quick, easy Help!

[Isaacx]

Hey guys, I am a beginner, and my code works how I want it to, but naturally, I think I took the "sledgehammer" method of just writing everything out without thought to efficiency. Now, I am noticing some delay in my program. Basically, I have 12 textboxes that are lit up with a border two at a time. So basically, textbox 1 and 2 get a red border. Then textbox 3 and 4 get the red border while textbox1 and textbox 2 get a grey border, etc... I just know there has to be an easier way to do this.

Dim int As Integer
        stepindicator.Read()
        int = stepindicator.Values(0)
 
        If int = 1 Then
            Label2.BackColor = Color.Maroon
            Label2a.BackColor = Color.Maroon
 
        ElseIf int = 2 Then
            Label3.BackColor = Color.Maroon
            Label3a.BackColor = Color.Maroon
            Label2.BackColor = Color.DarkGray
            Label2a.BackColor = Color.DarkGray
 
        ElseIf int = 3 Then
            Label4.BackColor = Color.Maroon
            Label4a.BackColor = Color.Maroon
            Label3.BackColor = Color.DarkGray
            Label3a.BackColor = Color.DarkGray
            Label2.BackColor = Color.DarkGray
            Label2a.BackColor = Color.DarkGray
 
        ElseIf int = 4 Then
            Label5.BackColor = Color.Maroon
            Label5a.BackColor = Color.Maroon
            Label4.BackColor = Color.DarkGray
            Label4a.BackColor = Color.DarkGray
            Label3.BackColor = Color.DarkGray
            Label3a.BackColor = Color.DarkGray
            Label2.BackColor = Color.DarkGray
            Label2a.BackColor = Color.DarkGray
 
        ElseIf int = 5 Then
            Label6.BackColor = Color.Maroon
            Label6a.BackColor = Color.Maroon
            Label5.BackColor = Color.DarkGray
            Label5a.BackColor = Color.DarkGray
            Label4.BackColor = Color.DarkGray
            Label4a.BackColor = Color.DarkGray
            Label3.BackColor = Color.DarkGray
            Label3a.BackColor = Color.DarkGray
            Label2.BackColor = Color.DarkGray
            Label2a.BackColor = Color.DarkGray
 
        ElseIf int = 6 Then
            Label7.BackColor = Color.Maroon
            Label7a.BackColor = Color.Maroon
            Label6.BackColor = Color.DarkGray
            Label6a.BackColor = Color.DarkGray
            Label5.BackColor = Color.DarkGray
            Label5a.BackColor = Color.DarkGray
            Label4.BackColor = Color.DarkGray
            Label4a.BackColor = Color.DarkGray
            Label3.BackColor = Color.DarkGray
            Label3a.BackColor = Color.DarkGray
            Label2.BackColor = Color.DarkGray
            Label2a.BackColor = Color.DarkGray
 
        End If

[leinad31]

One way would be to use a control array... that way you can just iterate through it and reset color of individual label accordingly.