Imports System
Imports System.Reflection
Class MyMainClass
Shared Sub Main()
Dim moduleArray() As [Module]
moduleArray = [Assembly].GetExecutingAssembly().GetModules(False)
Dim myModule As [Module] = moduleArray(0)
Dim myAssembly As [Assembly] = myModule.Assembly
Console.WriteLine("myModule.Assembly = {0}.", myAssembly.FullName)
End Sub
End Class