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 hModule <> IntPtr.Zero Then
                hBitmap = LoadBitmap(hModule, resourcesID)
                If hBitmap <> IntPtr.Zero Then
                    bmp = Bitmap.FromHbitmap(hBitmap)
                End If
                Return bmp
            End If
        Catch ex As Exception
            MsgBox(ex.ToString())
        Finally
            If hBitmap <> IntPtr.Zero Then
                DeleteObject(hBitmap)
            End If
            If hModule <> IntPtr.Zero 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, 5000)
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist