(引用先:https://www.atmarkit.co.jp/fdotnet/vb6tonet/vb6tonet23/vb6tonet23_01.html) 1: Delegate Function SampleDelegate(ByVal x As Integer, ByVal y As Integer) As Integer 2: 3: Public Class SampleClass 4: Public Function SampleMethod(ByVal x As Integer, ByVal y As Integer) As Integer 5: Return x * y 6: End Function 7: End Class 8: 9: Public Class Form1 10: Inherits System.Windows.Forms.Form 11: 12: …Windows フォーム デザイナで生成されたコード… 13: 14: Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 15: Dim SampleInstance As New SampleClass() 16: Dim sample As SampleDelegate = AddressOf SampleInstance.SampleMethod 17: Dim result As Integer = sample(2, 3) 18: Trace.WriteLine(result.ToString()) 19: End Sub 20: End Class