Visual Basic

namespace AppDomainHost<br />
  public class Host<br />
<br />
    private mAppDomain as AppDomain<br />
    private mIPlugin as AppDomainInterfaces.IPlugin<br />
<br />
    public sub New()<br />
      Dim vEvidence As Evidence = AppDomain.CurrentDomain.Evidence<br />
      mAppDomain = AppDomain.CreateDomain("MyAppDomain", vEvidence)<br />
      mIPlugin = AppDomainInterfaces.Factory.CreateIPlugin(mAppDomain, "AppDomainClient", "AppDomainClient.Client")<br />
      mIPlugin.Connect<br />
      AppDomain.Unload(mAppDomain)<br />
    end sub <br />
<br />
  end class <br />
end namespace <br />
<br />
namespace AppDomainClient<br />
  <serializable()> _<br />
  public class Client<br />
    implements AppDomainInterfaces.IPlugin<br />
<br />
    private mForm as Form<br />
    public sub New()<br />
      mForm = new Form()<br />
    end sub <br />
<br />
    public sub Connect() implements AppDomainInterfaces.IPlugin.Connect<br />
      msgbox("Connected")<br />
    end sub <br />
  end class <br />
end namespace <br />
<br />
namespace AppDomainInterfaces<br />
  public interface IPlugin<br />
    sub Connect()<br />
  end interface<br />
<br />
  public class Factory<br />
    function CreateIPlugin(byval pAppDomain as AppDomain, byval pAssembly as string, byval pType as string)<br />
      dim vIPlugin = directcast(pAppDomain.CreateInstanceAndUnwrap(pAssembly, pType), IPlugin)<br />
      return vIPlugin<br />
    end function <br />
  end class<br />
end namespace