委托的例子

Public Class Form1 Private Sub btnTest_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnTest.Click Dim delegateIns As New MyDelegate AddHandler delegateIns.Event, AddressOf Me.Method delegateIns.UseFirstDelegate("Hello delegate.") End Sub Private Sub Method(ByVal arg As String) MessageBox.Show(arg) End SubEnd ClassPublic Class MyDelegate Public Delegate Sub FirstDelegate(ByVal arg As String) Public Event [Event] As FirstDelegate Public Sub UseFirstDelegate(ByVal arg As String) If arg Is Nothing Then arg = "" End If RaiseEvent [Event](arg) End SubEnd Class