PrivateFunction HelloWorld()Function HelloWorld() AsString Return"Hello world" End Function DelegateFunction myMethodDelegate()Function myMethodDelegate() AsString Dim MyDelegate AsNew myMethodDelegate(AddressOf HelloWorld) PrivateSub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load Me.TextBox1.Text = MyDelegate() End Sub