Module myMain
  Friend WithEvents myMIDI As MIDI_Handler
  Public myLevelView As LevelView
 
  Sub Main()
     myMIDI = New MIDI_Handler
     myLevelView = New LevelView
 
     myLevelView.TestEvent1()
 
     myLevelView.TestEvent2()
 
     myLevelView.TestEvent3()
 
  End Sub
 
  Private Sub myMIDI_NewNoteOn(sender As Object, _
          e As MIDI_Handler.MyEventargs) Handles myMIDI.NewNoteOn
 
        'wird ausgelöst von Funktons-Aufruf TestEvent1, TestEvent2
    End Sub
End Module

Imports System.Windows.Forms
 
Friend Class LevelView
    Public WithEvents myMidi As MIDI_Handler
 
    Public Sub EvaluateNoteOn(ByVal sender As Object, _
         ByVal e As MIDI_Handler.MyEventargs) Handles myMIDI.NewNoteOn
 
        'ausgelöst durch TestEvent2, TestEvent3
    End Sub
 
    Public Sub TestEvent1()
        myMain.myMIDI.TestNoteOnEvent()
    End Sub
 
    Public Sub TestEvent2()
        myMidi = myMain.myMIDI
        myMidi.TestNoteOnEvent()
    End Sub
 
    Public Sub TestEvent3()
        myMidi = New MIDI_Handler
        myMidi.TestNoteOnEvent()
    End Sub
End Class
 
Public Class MIDI_Handler
 
    Friend Class MyEventargs
        Inherits System.EventArgs
    End Class
 
    Friend Event NewNoteOn(ByVal sender As Object, ByVal e As myEventArgs)
 
    Friend Sub TestNoteOnEvent()
        Dim mye As New MyEventargs()
        RaiseEvent NewNoteOn(Me, mye)
    End Sub
End Class