Private Sub Switch_StateChanged(ByVal sender As System.Object, ByVal e As _
  NationalInstruments.UI.ActionEventArgs) Handles Switch1.StateChanged, _
  Switch2.StateChanged, ..., Switch96.StateChanged
        Dim tmp As String
        tmp = "Led" & CType(sender, _
          NationalInstruments.UI.WindowsForms.Switch).Tag + 16
        Dim y As Control
        For Each y In Me.Controls
            If y.Name = tmp Then
                Dim Led As NationalInstruments.UI.WindowsForms.Led
                Led = CType(y, NationalInstruments.UI.WindowsForms.Led)
                Led.Value = Not Led.Value
            End If
        Next
    End Sub