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