bjectError + 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 + 1048 + 8, App.EXEName &amp; ".cFileIcon",
             "Can't load resource."
            LoadIconFromEXE = False
         Else
            ' Lock the resource for re