Imports System Imports System.Reflection Public Class MainClass Shared Sub Main( ) Dim a As [Assembly] = [Assembly].Load("Mscorlib.dll") Dim theTypes As Type( ) = a.GetTypes( ) Dim t As Type For Each t In theTypes Console.WriteLine("Type is {0}", t) Next t Console.WriteLine("{0} types found", theTypes.Length) End Sub End Class