Public Function LoadEmbeddedImage(ByVal imagename As String) As Image
 
        Dim this_assembly As Assembly
        this_assembly = [Assembly].LoadFile(Application.StartupPath & _
          "\DLL_NAME.dll")
 
        Dim strm As Stream = this_assembly.GetManifestResourceStream( _
          "DLL_NAME.Resources.Resources." & imagename)
 
        Dim img As Image = Image.FromStream(strm)
 
        Return img
 
    End Function