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.

code Code:
  1. Dim int As Integer

  2.         stepindicator.Read()

  3.         int = stepindicator.Values(0)

  4.  
  5.         If int = 1 Then

  6.             Label2.BackColor = Color.Maroon

  7.             Label2a.BackColor = Color.Maroon

  8.  
  9.         ElseIf int = 2 Then

  10.             Label3.BackColor = Color.Maroon

  11.             Label3a.BackColor = Color.Maroon

  12.             Label2.BackColor = Color.DarkGray

  13.             Label2a.BackColor = Color.DarkGray

  14.  
  15.         ElseIf int = 3 Then

  16.             Label4.BackColor = Color.Maroon

  17.             Label4a.BackColor = Color.Maroon

  18.             Label3.BackColor = Color.DarkGray

  19.             Label3a.BackColor = Color.DarkGray

  20.             Label2.BackColor = Color.DarkGray

  21.             Label2a.BackColor = Color.DarkGray

  22.  
  23.         ElseIf int = 4 Then

  24.             Label5.BackColor = Color.Maroon

  25.             Label5a.BackColor = Color.Maroon

  26.             Label4.BackColor = Color.DarkGray

  27.             Label4a.BackColor = Color.DarkGray

  28.             Label3.BackColor = Color.DarkGray

  29.             Label3a.BackColor = Color.DarkGray

  30.             Label2.BackColor = Color.DarkGray

  31.             Label2a.BackColor = Color.DarkGray

  32.  
  33.         ElseIf int = 5 Then

  34.             Label6.BackColor = Color.Maroon

  35.             Label6a.BackColor = Color.Maroon

  36.             Label5.BackColor = Color.DarkGray

  37.             Label5a.BackColor = Color.DarkGray

  38.             Label4.BackColor = Color.DarkGray

  39.             Label4a.BackColor = Color.DarkGray

  40.             Label3.BackColor = Color.DarkGray

  41.             Label3a.BackColor = Color.DarkGray

  42.             Label2.BackColor = Color.DarkGray

  43.             Label2a.BackColor = Color.DarkGray

  44.  
  45.         ElseIf int = 6 Then

  46.             Label7.BackColor = Color.Maroon

  47.             Label7a.BackColor = Color.Maroon

  48.             Label6.BackColor = Color.DarkGray

  49.             Label6a.BackColor = Color.DarkGray

  50.             Label5.BackColor = Color.DarkGray

  51.             Label5a.BackColor = Color.DarkGray

  52.             Label4.BackColor = Color.DarkGray

  53.             Label4a.BackColor = Color.DarkGray

  54.             Label3.BackColor = Color.DarkGray

  55.             Label3a.BackColor = Color.DarkGray

  56.             Label2.BackColor = Color.DarkGray

  57.             Label2a.BackColor = Color.DarkGray

  58.  
  59.         End If