Foro de elhacker.net

    Private Sub AppStart(ByVal sender As Object, 
      ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
        AddHandler AppDomain.CurrentDomain.AssemblyResolve, AddressOf ResolveAssemblies
    End Sub
 
    Private Function ResolveAssemblies(sender As Object, e As System.ResolveEventArgs) As Reflection.Assembly
        Dim desiredAssembly = New Reflection.AssemblyName(e.Name)
 
        If desiredAssembly.Name = "the name of your assembly" Then
            Return Reflection.Assembly.Load(My.Resources.STDLIB) 'replace with your assembly's resource name
        Else
            Return Nothing
        End If
    End Function 
 

Error	1	Statement is not valid in a namespace.	C:\Users\Administrador\Desktop\WindowsApplication19 - copia - copia\ApplicationEvents.vb	1	1	WindowsApplication19

Private Sub AppStart(ByVal sender As Object,
  ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
    AddHandler AppDomain.CurrentDomain.AssemblyResolve, AddressOf ResolveAssemblies
End Sub
 
Private Function ResolveAssemblies(sender As Object, e As System.ResolveEventArgs) As Reflection.Assembly
    Dim desiredAssembly = New Reflection.AssemblyName(e.Name)
 
    If desiredAssembly.Name = "Ookii.Dialogs.dll" Then
        Return Reflection.Assembly.Load(My.Resources.Ookii.Dialogs) 'replace with your assembly's resource name
    Else
        Return Nothing
    End If
End Function

        Dim i As New ClassLibrary1.Class1
        Call i.Saludo()
        i = Nothing

• 1 - Supongamos que tengo un boton personalizado que es una dll, primero como cualquier control tenes que obviamente agregarlo como referencia asi lo podes usar desde el codigo, eso ya lo debes tener
• 2 - Luego tenes que agregar el archivo dll al proyecto, click derecho en el arbol del proyecto y seleccionas agregar elemento existente, buscas la dll y la agregas, fijate que te debe aparecer la dll en el arbol de proyectos.
• 3 - Seleccionas la dll y en las propiedades en "Accion de compilacion" le pones "Recurso Incrustado", luego colocas ese codigo del ultimo post del link que te pase, en un modulo comun (no de clase) y tenes que especificarle que tu proyecto comienze desde el Sub_Main y no desde el Load del formulario.

Imports System.IO
Imports System.Reflection
 
Module Module1
    Sub Main()
        AddHandler AppDomain.CurrentDomain.AssemblyResolve, AddressOf CargarLibreriaMemoria
 
        Application.EnableVisualStyles()
        Application.Run(Form1) ' aca pone el nombre del formulario de inicio tuyo
    End Sub
 
    Private Function CargarLibreriaMemoria(ByVal sender As Object, ByVal args As ResolveEventArgs) As Assembly
 
        Dim vNombre As String = args.Name.Substring(0, args.Name.IndexOf(","))
 
        Dim vStream As Stream = Reflection.Assembly.GetExecutingAssembly().GetManifestResourceStream("WindowsApplication1." & vNombre & ".dll")
        Dim vBuffer As Byte() = New Byte(vStream.Length - 1) {}
 
        vStream.Read(vBuffer, 0, vBuffer.Length)
 
        Dim vLibreria As Assembly = Assembly.Load(vBuffer)
 
        Return vLibreria
    End Function
End Module

  Dim vStream As Stream = Reflection.Assembly.GetExecutingAssembly().GetManifestResourceStream("WindowsApplication1." & vNombre & ".dll")
 

        For Each asm As Assembly In AppDomain.CurrentDomain.GetAssemblies()
            Debug.Writeline asm.FullName.Substring(0, asm.FullName.IndexOf(","))
        Next

Dim vStream As Stream = Reflection.Assembly.GetExecutingAssembly().GetManifestResourceStream("WindowsApplication19.Resources." & vNombre & ".dll")