Public Class cls_System_Global
 
#Region "Sonstige Deklarationen"
 
    'Globale Personalnummer.
    Public Shared PersonalID As String
 
#End Region
End Class

 Private Sub x()
cup_System.cls_System_Global.PersonalID = 1
dim xs as string = ""
xs =cup_System.cls_System_Global.PersonalID 
End Sub

Public Class cls_System_Events
 
#Region "Events-Deklaration"
     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
 
    'Globales Objekt um alle Systemevents zu starten.
    Public RaiseSystemEvent As cls_System_Events
 
End Class

    Friend Co_SystemComponent1 As New cup_System.co_SystemComponent
 
    Private Sub frmMain_KeyDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
               'Fokus auf Notizblock
            If (e.Control AndAlso e.KeyCode = Keys.N) Then
                'Nur wenn Property True
                Me.Co_SystemComponent1.RaiseSystemEvent.couseEvent_Strg_N()
                Exit Sub
            End If
End Sub

    Private Sub uc_Notizblock_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
            'Handler für Strg-N
            AddHandler cup_System.cls_System_Events.Strg_N, AddressOf _
              StrgN_Handler
End Sub
 
    Public Sub StrgN_Handler()
'Hier auf das Ereigniss reagieren!
End Sub