AddHandler AppDomain.CurrentDomain.AssemblyResolve, AddressOf _
  MyResolveEventHandler

    Function MyResolveEventHandler(ByVal sender As Object, _
                               ByVal args As ResolveEventArgs) As [Assembly]
 
        'This handler is called only when the common language runtime tries to 
        ' bind to the assembly and fails.
 
        'Retrieve the list of referenced assemblies in an array of AssemblyName.
        Dim objExecutingAssemblies As [Assembly]
        objExecutingAssemblies = [Assembly].GetExecutingAssembly()
        Dim arrReferencedAssmbNames() As AssemblyName
        arrReferencedAssmbNames = _
          objExecutingAssemblies.GetReferencedAssemblies()
 
        'Loop through the array of referenced assembly names.
        Dim strAssmbName As AssemblyName
        For Each strAssmbName In arrReferencedAssmbNames
 
            'Look for the assembly names that have raised the "AssemblyResolve" 
            ' event.
            If (strAssmbName.FullName.Substring(0, _
              strAssmbName.FullName.IndexOf(",")) = args.Name.Substring(0, _
              args.Name.IndexOf(","))) Then
 
                'Build the path of the assembly from where it has to be loaded.
                Dim strTempAssmbPath As String
                strTempAssmbPath = "C:\Programme\Team MediaPortal\MediaPortal\" _
                  & args.Name.Substring(0, args.Name.IndexOf(",")) & ".dll"
 
                Dim MyAssembly As [Assembly]
 
                'Load the assembly from the specified path.
                MyAssembly = [Assembly].LoadFrom(strTempAssmbPath)
 
                'Return the loaded assembly.
                Return MyAssembly
            End If
        Next
 
    End Function