Imports System.Reflection
Module Module1
Sub Main()
Dim thisAssembly As [Assembly] = [Assembly].GetExecutingAssembly()
Console.WriteLine("Code base: " & thisAssembly.CodeBase)
Console.WriteLine("Full name: " & thisAssembly.FullName)
Console.WriteLine("Entry point: " & thisAssembly.EntryPoint.ToString())
Console.WriteLine("From Global Assembly Cache: " & thisAssembly.GlobalAssemblyCache)
Console.WriteLine("Location: " & thisAssembly.Location)
End Sub
End Module