Sub start()
        Dim subDomain As AppDomain = AppDomain.CreateDomain("MioDominio", Nothing)
        Dim agent As AgentInAppDomain = subDomain.CreateInstanceAndUnwrap(GetType(AgentInAppDomain).Assembly.GetName().FullName, GetType(AgentInAppDomain).FullName)
        agent.RunFunctionInAppDomain("C:\Main.dll")
        AppDomain.Unload(subDomain)
    End Sub
End Class