 0&amp;, LOAD_LIBRARY_AS_DATAFILE)
   If (hLibrary = 0) Then
      ' Failed to load the executable. Probably not a Win32 EXE.
      Err.Raise vbObjectError + 1048 + 6, App.EXEName &amp; ".cFileIcon", "Can't
       load library."
      LoadIconFromEXE = False
   Else
      ' Find the resource:
      If (lpID &lt;&gt; 0) Then
         lpName = "#" &amp; CStr(lpID)
         hRsrc = FindResource(hLibrary, ByVal lpName, ByVal RT_GROUP_ICON)
         m_vID = lpID
      Else
         hRsrc = FindResource(hLibrary,