Imports System.Runtime.InteropServices
Imports System.Resources
Imports System.Reflection
 
Public Class Form1
 
 
    Private Declare Auto Function LoadLibrary Lib "kernel32" (ByVal lpFileName _
      As String) As IntPtr
    Private Declare Function FreeLibrary Lib "kernel32" (ByVal hModule As _
    IntPtr) As Boolean
    Private Declare Auto Function LoadBitmap Lib "user32" (ByVal hInstance As _
    IntPtr, ByVal lpBitmapName As Integer) As IntPtr
    Private Declare Auto Function DeleteObject Lib "gdi32" (ByVal hObject As _
    IntPtr) As Boolean
    Public Shared Function GetImageFromResource(ByVal FilePath As String, ByVal _
    resourcesID As Integer) As Image
 
        Dim hModule As IntPtr = LoadLibrary(FilePath)
        Dim bmp As Bitmap = Nothing
        Dim hBitmap As IntPtr
        Try
            If Not hModule.Equals(IntPtr.Zero) Then
                hBitmap = LoadBitmap(hModule, resourcesID)
                If Not hBitmap.Equals(IntPtr.Zero) Then
                    bmp = Bitmap.FromHbitmap(hBitmap)
                End If
                DeleteObject(hBitmap)
                FreeLibrary(hModule)
                Return bmp
            End If
        Catch ex As Exception
 
        Finally
            If Not hBitmap.Equals(Nothing) Then
                DeleteObject(hBitmap)
            End If
            If Not hModule.Equals(Nothing) Then
                FreeLibrary(hModule)
            End If
        End Try
        Return bmp
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim fpp As String = "C:\Windows\System32\imageres.dll"
        PictureBox1.Image = GetImageFromResource(fpp, 5031)
    End Sub
 
End Class