C# と VB.NET の質問掲示板

> こういうことでしょうか？？

↓こういうことです

Class 子
  Public Delegate Sub MessageReceivedHendler(ByVal data As String)
  Public Event MessageReceived As MessageReceivedHendler ' イベント
  Public Sub Receive(ByVal message As String) ' なんか受信したらイベント飛ばす
    RaiseEvent MessageReceived(message)
  End Sub
End Class

Class 親 
  Public Sub ShowMessage(ByVal message As String) ' メッセージを書く
    System.Console.WriteLine(message)
  End Sub
End Class

Module Program
  Sub Main()
    Dim child As New 子
    Dim parent As New 親
    ' 子のイベントに親のハンドラをがっちんこ
    AddHandler child.MessageReceived, AddressOf parent.ShowMessage
    ' ぽちっとな
    child.Receive("なんか来たよー")
  End Sub
End Module