Private WithEvents MyDomain As AppDomain = AppDomain.CurrentDomain
 
 
        Private Function MyDomain_AssemblyResolve(ByVal sender As Object, ByVal _
          args As System.ResolveEventArgs) As System.Reflection.Assembly _
          Handles MyDomain.AssemblyResolve
 
            'Überprüfen ob nach der richtigen Assembly gesucht wird:  
 
            If args.Name.Contains("NamederDLL") Then
 
                'Assembly aus den Resourcen laden  
 
                Return System.Reflection.Assembly.Load(My.Resources.NamederDLL)
 
            Else
 
                'Wenn der Name nicht stimmt, geben wir 'Nothing' zurück, so 
                ' wird noch an  
 
                'anderen Orten wie z.B. im GAC nach der richtigen Assembly 
                ' gesucht  
 
                Return Nothing
 
            End If
 
        End Function