Imports System.Windows.Forms
Public Class cls_System_Events
 
#Region "Events"
'Eventdeklaration
    Public Shared Event LoadLayout()
#End Region
 
#Region " Eventraiser "
'Event auslösen
    Sub couseEvent_LoadLayout()
       RaiseEvent LoadLayout()
end sub
#End Region
 
end class
 
....
Public Class co_SystemComponent
'Globale Variable um das Event aus zu lösen
  Public RaiseSystemEvent As cls_System_Events
end class
 
....
Imports System.Windows.Forms
 
Public Class frmVorlage
Private Sub frmVorlage_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
'Hier wird das Event ausgelöst
 Co_SystemComponent1.RaiseSystemEvent.couseEvent_NewWindowOpening(Me)
end sub
end class
....
Imports System.Windows.Forms
 
Public Class frmTest
Private Sub frmVorlage_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
'Handler anlegen
         AddHandler cup_System.cls_System_Events.LoadLayout, AddressOf _
           DeineFunktion
 
public Sub DeineFunktion
'Hier reagieren.
end class

Gru? Rub

(PS: Besuch doch mal meine Seiten http://e-liquids.de und http://jjpassion.de)