Public Class cls_cup_System_Event
    'Events
    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 Shared gbl_cup_System_Event As cls_cup_System_Event()
...

    Private Sub frmMain1_KeyUp(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
        If e.KeyCode = Keys.N Then
            'Löst das Event aus
            Me.Co_SystemComponent1.gbl_cup_System_Event.couseEvent_Strg_N()
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        AddHandler Me.Co_SystemComponent1.gbl_cup_System_Event.Strg_N, _
        AddressOf StrgNHandler
    End Sub
 
    Public Sub StrgNHandler()
        MsgBox("StrgNHandler")
    End Sub