AddHandler Toggle1_0_0.Click, AddressOf clseib.aktualisieren
 
 
...
 
    Shared Sub aktualisieren(ByVal sender As Object, ByVal e As _
      System.EventArgs)
        MessageBox.Show(sender.GetType.Name.ToString & "  " & e.ToString)
    End Sub

clseib.aktualisieren

    Public Shared ga(1) As String
    Public Shared Wert(1) As String
    Public Shared Typ(1) As String
    Public Shared Info(1) As String
    Public Shared Time(1) As Date