Use AddressOf to assign function to a 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_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

13