Private Sub SArray_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) 'Handles Sensor1.Click
 
        ' Click-Ereignis des Button-Arrays auswerten
        Dim itemClicked As SensorLC.Sensor = CType(sender, SensorLC.Sensor)
        Dim index As Integer = -1I
 
 
        ' Das betroffene Element im Array suchen (allgemein);
        ' Möglich wäre etwa auch das Vorgehen über die eigens
        ' zugewiesene Name-Eigenschaft des Buttons.
        For i As Integer = LBound(SArray) To UBound(SArray)
        If SArray(i).Index = SCnt Then
            index = SCnt
            Exit For
        End If
        Next
 
        If index >= 0 Then ' Element im Array gefunden (sonst index = -1)
        ' Kurze Informations-MessageBox für das Codebeispiel
        MessageBox.Show("Sie haben den Button Nr. " & CStr(index) & "" & _
          "angeklickt", _
                        "Index des Buttons ermittelt", _
                        MessageBoxButtons.OK, _
                        MessageBoxIcon.Information)
        End If
 
    End Sub

Dim itemClicked As SensorLC.Sensor = CType(sender, SensorLC.Sensor)