Define delegate : Delegate « Class Module « VB.Net Tutorial

1. VB.Net Tutorial
2. Class Module
3. 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