Module Module1
Public Class msgDisplay
'1.被委托的方法
Public Sub display(ByVal msg As String)
Console.WriteLine(msg)
End Sub
End Class
'2.声明委托
Delegate Sub delegateMessage(ByVal str As String)
Sub Main()
'3.声明实例
Dim myDisplay As New msgDisplay
'4 声明委托变量并赋于被委托实例的方法
Dim msg As New delegateMessage(AddressOf myDisplay.display)
msg("How are you!")
Console.Read()
End Sub
End Module