FindResourceA (Kernel32)

Usage

    Private Declare Function FindResource Lib "kernel32" Alias "FindResourceA" (ByVal hModule As IntPtr, ByVal name As IntPtr, ByVal type As IntPtr) As IntPtr

        Dim hLibrary As Integer
        Dim strFilePath As String
        strFilePath = "filename"
        hLibrary = LoadLibrary(strFilePath)
        Dim strString As String
        strString = StrDup(256, Chr(0))
        Dim hResource As Integer = FindResource(hLibrary, resource ID or number, resource type)
        'Example : Dim hResource As Integer = FindResource(hLibrary, 30001, 3) 'icon