Class Module VB.Net Tutorial

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