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_num As NumEmployeesDelegate
show_num = AddressOf Employee.GetNumEmployees
Console.WriteLine(show_num().ToString)
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
|