Mega Code Archive
Define delegate
public class Test
Private Delegate Function NumEmployeesDelegate() As Integer
Private Delegate Function GetNameDelegate() As String
public Shared Sub Main
Dim emp As New Employee()
Dim show_name As GetNameDelegate
show_name = AddressOf emp.ToString
Console.WriteLine(show_name())
End Sub
End class
Public Class Employee
Public Shared Function GetNumEmployees() As Integer
Return 13
End Function
Public Overrides Function ToString() As String
Return "Employee"
End Function
End Class
Employee