ins no images."
      Exit Function
   End If
   
   ' Now start writing:
   If (sFileName &lt;&gt; "") Then
      m_sFile = sFileName
   End If
   
   ' Open the file for write:
   hFile = CreateFile(m_sFile, GENERIC_WRITE, 0, ByVal 0&amp;, CREATE_ALWAYS,
    FILE_ATTRIBUTE_NORMAL, ByVal 0&amp;)
   If (hFile = INVALID_HANDLE_VALUE) Then
      Err.Raise vbObjectError + 1048 + 4, App.EXEName &amp; ".cFileIcon", "Couldn't
       open file for writing."
   Else
      ' Write the header:
      WriteFile hFile, 