Imports System
Imports System.Reflection
Imports System.Security.Policy 'for evidence object

Class ADSetupInformation

   Public Shared Sub Main()
      ' Create the applcation domain setup information.
      Dim domaininfo As New AppDomainSetup()
      domaininfo.ApplicationBase = System.Environment.CurrentDirectory
      'Create evidence for the new appdomain.
      Dim adevidence As Evidence = AppDomain.CurrentDomain.Evidence

      ' Create the new application domain using setup information.
      Dim domain As AppDomain = AppDomain.CreateDomain("MyDomain", adevidence, domaininfo)

      ' Write out the application domain information.
      Console.WriteLine("Host domain: " + AppDomain.CurrentDomain.FriendlyName)
      Console.WriteLine("new child domain: " + domain.FriendlyName)
      Console.WriteLine()
      Console.WriteLine("Application base is: " + domain.SetupInformation.ApplicationBase)

      AppDomain.Unload(domain)
   End Sub
End Class 'ADSetupInformation 

using System;
using System.Reflection;
using System.Security.Policy;  //for evidence object

class ADSetupInformation
{
    public static void Main()
    {
        //Create the application domain setup information.
        AppDomainSetup domaininfo = new AppDomainSetup();
        domaininfo.ApplicationBase = System.Environment.CurrentDirectory;
        //Create evidence for new appdomain.
        Evidence adevidence = AppDomain.CurrentDomain.Evidence;
        // Create the new application domain using setup information.
        AppDomain domain = AppDomain.CreateDomain("MyDomain", adevidence, domaininfo);

        // Write out the application domain information.
            Console.WriteLine("Host domain: " + AppDomain.CurrentDomain.FriendlyName);
            Console.WriteLine("new child domain: " + domain.FriendlyName);
            Console.WriteLine();
            Console.WriteLine("Application base is: " + domain.SetupInformation.ApplicationBase);

        AppDomain.Unload(domain);
    
        
    }
    
}

using namespace System;
using namespace System::Reflection;
using namespace System::Security::Policy;

//for evidence Object
int main()
{

   //Create the application domain setup information.
   AppDomainSetup^ domaininfo = gcnew AppDomainSetup;
   domaininfo->ApplicationBase = System::Environment::CurrentDirectory;

   //Create evidence for new appdomain.
   Evidence^ adevidence = AppDomain::CurrentDomain->Evidence;

   // Create the new application domain using setup information.
   AppDomain^ domain = AppDomain::CreateDomain( "MyDomain", adevidence, domaininfo );

   // Write Out the application domain information.
   Console::WriteLine( "Host domain: {0}", AppDomain::CurrentDomain->FriendlyName );
   Console::WriteLine( "new child domain: {0}", domain->FriendlyName );
   Console::WriteLine();
   Console::WriteLine( "Application base is: {0}", domain->SetupInformation->ApplicationBase );
   AppDomain::Unload( domain );
}