はじめての Delegate。

.NET 



[Visual Basic]
Imports System
Public NotInheritable Class Program



  ' えんとりぽいんとぉ〜！

  Public Shared Sub Main(ByVal args As String())
    ' Delegate をインスタンス化？

    Dim method As ShowMessageDelegate

    method = New ShowMessageDelegate(AddressOf Program.ShowJoJoMessage)
    ' Delegate を呼び出してみる。

    method(args(0))
  End Sub



  ' メッセージを表示する Delegate。

  Private Delegate Sub ShowMessageDelegate(ByVal targetName As String)



  ' ShowMessageDelegate に突っ込むメソッド。シグニチャは同じなのです。

  Private Shared Sub ShowJoJoMessage(ByVal targetName As String)
    Console.WriteLine("さすが{0}！　おれたちにできない事を平然とやってのけるッ　そこにシビれる！　あこがれるゥ！ ", targetName)
  End Sub



End Class
やれやれだぜ（違