title: Simplify toggle button change BackColor Code VBA
body: <p>im new in VBA making, so all code below is still working tho but it takes a lot of line of codes. Even it is easier to maintain but if someone can simplify my noob-code to cut some lines and more eye-pleasing? </p>
  
  <p>there are more than 20 toggle buttons in my userform</p>
  
  <p>this is the example of my code, need help for make it simpler </p>
  
  <pre><code>Private Sub tgglC_Result1_Click()
  If tgglC_Result1.Value = True Then
      tgglC_Result1.BackColor = &amp;HFF00&amp;
      tgglNC_Result1.Enabled = False
      lblResult1.Caption = Now
      lblResult1.Visible = True
  Else
      tgglC_Result1.BackColor = &amp;H8000000F
      tgglNC_Result1.Enabled = True
      lblResult1.Visible = False
  End If
  End Sub
  Private Sub tgglC_Result2_Click()
  If tgglC_Result2.Value = True Then
      tgglC_Result2.BackColor = &amp;HFF00&amp;
      tgglNC_Result2.Enabled = False
      lblResult2.Caption = Now
      lblResult2.Visible = True
  Else
      tgglC_Result2.BackColor = &amp;H8000000F
      tgglNC_Result2.Enabled = True
      lblResult2.Visible = False
  End If
  End Sub
  Private Sub tgglC_Result3_Click()
  If tgglC_Result3.Value = True Then
      tgglC_Result3.BackColor = &amp;HFF00&amp;
      tgglNC_Result3.Enabled = False
      lblResult3.Caption = Now
      lblResult3.Visible = True
  Else
      tgglC_Result3.BackColor = &amp;H8000000F
      tgglNC_Result3.Enabled = True
      lblResult3.Visible = False
  End If
  End Sub
  Private Sub tgglC_Result4_Click()
  If tgglC_Result4.Value = True Then
      tgglC_Result4.BackColor = &amp;HFF00&amp;
      tgglNC_Result4.Enabled = False
      lblResult4.Caption = Now
      lblResult4.Visible = True
  Else
      tgglC_Result4.BackColor = &amp;H8000000F
      tgglNC_Result4.Enabled = True
      lblResult4.Visible = False
  End If
  End Sub
  </code></pre>