Imports System
Imports System.Reflection
Imports System.Security.Policy 'for Evidence object
Class ADGetAssemblies
Public Shared Sub Main()
Dim currentDomain As AppDomain = AppDomain.CurrentDomain
Dim asEvidence As Evidence = currentDomain.Evidence
currentDomain.Load("CustomLibrary", asEvidence)
Dim assems As [Assembly]() = currentDomain.GetAssemblies()
Dim assem As [Assembly]
For Each assem In assems
Console.WriteLine(assem.ToString())
Next assem
End Sub
End Class