Imports System.Reflection
Module Example1
Public Sub Main()
Dim thisAssem As Assembly = Assembly.GetExecutingAssembly()
Dim thisAssemName As AssemblyName = thisAssem.GetName()
Dim ver As Version = thisAssemName.Version
Console.WriteLine("This is version {0} of {1}.", ver, thisAssemName.Name)
End Sub
End Module