+ 1048 + 8, App.EXEName &amp; ".cFileIcon",
             "Can't load resource."
            LoadIconFromEXE = False
         Else
            ' Lock the resource for reading (returns a pointer to the resource
             data):
            lPtr = LockResource(hGlobal)
            If (lPtr = 0) Then
               Err.Raise vbObjectError + 1048 + 8, App.EXEName &amp; ".cFileIcon",
                "Can't lock resource."
               LoadIconFromEXE = False
            Else
               ' Get the icon hea