Class ...
 
[...]
 
    Dim Co_SystemComponent1 As New co_SystemComponent
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        AddHandler Co_SystemComponent1.gbl_cup_System_Event.Strg_N, AddressOf _
        StrgNHandler
    End Sub
 
    Public Sub StrgNHandler()
        MsgBox("StrgNHandler")
    End Sub
 
    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button15.Click
        Me.Co_SystemComponent1.gbl_cup_System_Event.couseEvent_Strg_N()
    End Sub
 
End Class
 
Public Class cls_cup_System_Event
    'Events
    Public 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 Sub New()
        gbl_cup_System_Event = New cls_cup_System_Event
    End Sub
 
End Class