ActivationContext Class represents the activation context for the current application
Imports System Imports System.Collections Imports System.Text Imports System.Security.Policy Imports System.Reflection Imports System.Security Imports System.Security.Permissions Public Class Program Inherits MarshalByRefObject <SecurityPermission(SecurityAction.LinkDemand, ControlDomainPolicy:=True)> _ Public Shared Sub Main(ByVal args() As String) Dim ac As ActivationContext = AppDomain.CurrentDomain.ActivationContext Dim ai As ApplicationIdentity = ac.Identity Console.WriteLine("Full name = " + ai.FullName) Console.WriteLine("Code base = " + ai.CodeBase) Console.Read() End Sub 'Main <SecurityPermission(SecurityAction.LinkDemand, ControlDomainPolicy:=True)> _ Public Sub Run() Main(New String() {}) Console.ReadLine() End Sub End Class