   Dim sOrigFile As String
   If (cFB.VBGetOpenFileName( _
         Filename:=sFile, _
         Filter:="Icon Files|*.ICO;*.EXE;*.DLL|Program Files|*.EXE|Library
          Files|*.DLL|Icons|*.ICO|All Files|*.*", _
         DefaultExt:="EXE", _
         Owner:=UserControl.hwnd)) Then
      sOrigFile = m_sFileName
      Filename = sFile
      txtFile.Text = sFile
      If (m_cIml.ImageCount &lt;= 0) Then
         MsgBox "The file '" &amp; sFile &amp; "' contains no icons", vbExclamation
      End If
   End If