t m_cIml Is Nothing Then
         m_cIml.Clear
      End If
      Clear
      
      Screen.MousePointer = vbHourglass
      ShowWindow m_hWnd, SW_HIDE
      m_sFileName = sFileName
      If Len(m_sFileName) &gt; 0 Then
         'GetIconResources Me, m_sFileName
         extractIcons m_sFileName
      End If
      If (m_cIml.ImageCount = 0) Then
         ' Is this file an icon file?
         GetIconFromIconFile
      End If
      
      ShowWindow m_hWnd, SW_SHOW
      Screen.MousePointer = vbDefault
      