1: Public Delegate Function デリゲート関数名(ByVal days As Short) As String
2:
3: Public Class DelegateTest
4: …
5: Public Sub xxxxx()
6: Dim デリゲートオブジェクト As デリゲート関数名
= New デリゲート関数名(AddressOf 実行メソッド)
7: …
8: デリゲートオブジェクト.Invoke(days)
9: …
10: End Sub
11: …
12: Private Function 実行メソッド(ByVal days As Short) As String
13: …
14: End Function
15: End Class