コメントより:
でも親切さを売りにしているんだからキーワードなしで、
AddHandler（obj.SomethingHappen,obj.OnSomething )でいいでしょうにぃｗか
もういっその事 AddHandler obj.SomethingHappen,obj.OnSomething
AddHandlerで関数呼ぶわけ無いでしょう！ってね。
親切心が足りないぃ
そこをなんとか。
Public Class Program
Public Delegate Sub DoSomething()
Public Event SomethingHappen As DoSomething
Private Sub OnSomething()
Console.WriteLine("くるっくー")
End Sub
Public Function GetHatopoppo() As DoSomething
Return AddressOf Me.OnSomething
End Function
Public Sub Execute()
RaiseEvent SomethingHappen()
End Sub
Public Shared Sub Main()
Dim obj As New Program
AddHandler obj.SomethingHappen, obj.GetHatopoppo
Console.WriteLine("ハトがでますよー...")
obj.Execute()
End Sub
End Class