Module myMain
	Friend WithEvents myMIDI As MIDI_Handler
	Public myLevelView As LevelView
 
	Sub Main()
		myMIDI = New MIDI_Handler
	        myLevelView = New LevelView
	End Sub
End Module
 
Friend Class LevelView()
	Public Sub EvaluateNoteOn(ByVal sender As Object, _
				  ByVal e As MIDI_Handler.myEventArgs) _
				  Handles myMidi.NewNoteOn
	Private Sub TestEvent()
		myMain.myMIDI.TestNoteOnEvent()
	End Sub
end class
 
Public class MIDI_Handler
 
        Friend Event NewNoteOn(ByVal sender As Object, _
			   ByVal e As myEventArgs)
 
	Friend Sub TestNoteOnEvent()
        	mye = New myEventArgs()
        	RaiseEvent NewNoteOn(Me, mye)
    	End Sub
End class

Public WithEvents myMidi As MIDI_Handler

myMidi = myMain.myMIDI