Public Sub New()
        'Eventlog initialisieren
        Dim EVENTLOG_PROTOCOL_NAME As String = "Gitterboxverwaltung"
        Dim EVENTLOG_PROTOCOL_SOURCE As String = "Boxmaster"
 
        Try
            If Not EventLog.SourceExists(EVENTLOG_PROTOCOL_SOURCE) Then  '<--- 
            ' Securityexception
                EventLog.CreateEventSource(EVENTLOG_PROTOCOL_SOURCE, _
                  EVENTLOG_PROTOCOL_NAME)
            End If
        Catch ex As System.Security.SecurityException
 
            EVENTLOG_PROTOCOL_NAME = "Application"
            EVENTLOG_PROTOCOL_SOURCE = "Boxmaster"
            EventLog.CreateEventSource(EVENTLOG_PROTOCOL_SOURCE, _
              EVENTLOG_PROTOCOL_NAME)'<--- Securityexception
 
        End Try
 
        myEventlog = New EventLog(EVENTLOG_PROTOCOL_NAME)
        myEventlog.Source = EVENTLOG_PROTOCOL_SOURCE
 
    End Sub

VB RULEZ !