 ByVal lpName, ByVal RT_GROUP_ICON)
         m_vID = lpName
      End If
      If (hRsrc = 0) Then
         ' Resource not found in this library:
         Err.Raise vbObjectError + 1048 + 7, App.EXEName &amp; ".cFileIcon", "Can't
          find resource."
         LoadIconFromEXE = False
      Else
         ' Load the resource (returns a handle which can be used to access the
          data):
         hGlobal = LoadResource(hLibrary, hRsrc)
         If (hGlobal = 0) Then
            Err.Raise vbObjectError 