Public Class cls_cup_System_Event
    'Events
    'Public Event Strg_N()
    Public Shared Event Strg_N()    
'Event-Auslöser
    Sub couseEvent_Strg_N()
        Try
            RaiseEvent Strg_N()
        Catch
            MsgBox("Das Event konnte nicht ausgelöst werden! ")
        End Try
    End Sub
End Class
 
Public Class co_SystemComponent
    Inherits System.ComponentModel.Component
    'Globale Events
    'Public WithEvents gbl_cup_System_Event As cls_cup_System_Event
    Public gbl_cup_System_Event As cls_cup_System_Event
    Public Sub New()
        gbl_cup_System_Event = New cls_cup_System_Event
    End Sub
End Class