VB.Net by API/System.Reflection/AppDomain

AppDomain.CreateDomain

<source lang="vbnet"> Imports System.Reflection Public Class Tester

   Public Shared Sub Main
   
       Dim myAppDomain As AppDomain
       Try
           myAppDomain = AppDomain.CreateDomain("YourDomain")
           Console.WriteLine(myAppDomain.FriendlyName)
           AppDomain.Unload(myAppDomain)
       Catch ex As Exception
           Console.WriteLine(ex.Message)
       End Try
   End Sub

End Class

 </source>

AppDomain.CurrentDomain

<source lang="vbnet"> Imports System.Reflection Public Class Tester

   Public Shared Sub Main
   
       Dim myCurrentAppDomain As AppDomain
       Dim myAssemblies() As [Assembly]
       Dim myAssembly As [Assembly]
       Try
           myCurrentAppDomain = AppDomain.CurrentDomain
           myAssemblies = myCurrentAppDomain.GetAssemblies
           For Each myAssembly In myAssemblies
               Console.WriteLine(myAssembly.FullName)
           Next
           Console.WriteLine(myCurrentAppDomain.FriendlyName)
       Catch ex As Exception
           Console.WriteLine(ex.Message)
       End Try

   End Sub

End Class

 </source>

AppDomain.CurrentDomain.BaseDirectory()

<source lang="vbnet"> public class Test

  public Shared Sub Main
       Console.WriteLine(System.AppDomain.CurrentDomain.BaseDirectory())
  End Sub

End Class

 </source>

AppDomain.FriendlyName

<source lang="vbnet"> Imports System.Reflection Public Class Tester

   Public Shared Sub Main
   
       Dim myAppDomain As AppDomain
       Try
           myAppDomain = AppDomain.CreateDomain("YourDomain")
           Console.WriteLine(myAppDomain.FriendlyName)
           AppDomain.Unload(myAppDomain)
       Catch ex As Exception
           Console.WriteLine(ex.Message)
       End Try
   End Sub

End Class

 </source>

AppDomain.GetAssemblies

<source lang="vbnet"> Imports System.Reflection Public Class Tester

   Public Shared Sub Main
   
       Dim myCurrentAppDomain As AppDomain
       Dim myAssemblies() As [Assembly]
       Dim myAssembly As [Assembly]
       Try
           myCurrentAppDomain = AppDomain.CurrentDomain
           myAssemblies = myCurrentAppDomain.GetAssemblies
           For Each myAssembly In myAssemblies
               Console.WriteLine(myAssembly.FullName)
           Next
           Console.WriteLine(myCurrentAppDomain.FriendlyName)
       Catch ex As Exception
           Console.WriteLine(ex.Message)
       End Try

   End Sub

End Class

 </source>

AppDomain.GetCurrentThreadId()

<source lang="vbnet"> Imports System Imports System.Configuration Imports System.Resources " Resource readers Public Class MainClass

   Shared Sub Main()
       Console.WriteLine("App_ThreadExit on thread id= " & System.AppDomain.GetCurrentThreadId().ToString())
   End Sub

End Class

 </source>

AppDomain.Unload

<source lang="vbnet">

Imports System.Reflection Public Class Tester

   Public Shared Sub Main
   
       Dim myAppDomain As AppDomain
       Try
           myAppDomain = AppDomain.CreateDomain("YourDomain")
           Console.WriteLine(myAppDomain.FriendlyName)
           AppDomain.Unload(myAppDomain)
       Catch ex As Exception
           Console.WriteLine(ex.Message)
       End Try
   End Sub

End Class

 </source>