Imports System
Imports System.Reflection
Imports System.Security.Permissions
Public Class Example
Private factor As Integer
Public Sub New(ByVal f As Integer)
factor = f
End Sub
Public Function SampleMethod(ByVal x As Integer) As Integer
Return x * factor
End Function
Public Shared Sub Main()
Dim assem As [Assembly] = [Assembly].GetExecutingAssembly()
Console.WriteLine(assem.FullName)
End Sub
End Class