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
|