Hace unos días preguntaron en la lista cómo invocar el diálogo de selección de iconos de windows. Para ello he creado esta clase que también sirve para mostrar un icono (o los que queramos) que esté dentro de un fichero.

Propiedades:

- Fichero: Devuelve o estable el nombre del fichero de que se extraen los iconos

- IconoSeleccionado : Devuelve o estable el número de icono que deseamos extraer. Comienza en cero.

- NumeroIconos : Devuelve el número de iconos del contenidos en el fichero

Métodos:
- MostrarDialogo : Muestra el diálogo de windows para seleccionar un icono. Si no se especifica el nombre del fichero a mirar se utiliza shell32.dll
Si el usuario elige uno se actualizan todas las propiedades para reflejar la selección

- CargarIcono : Dibuja en el PictureBox que recibe como parámetro el icono seleccionado mediante las propiedades Fichero e IconoSeleccionado

Ejemplo :

Para dibujar en un picture el icono seleccionado mediante el diálogo de windows :

Dim cIcono As cElegirIcono

Set cIcono = New cElegirIcono
cIcono.MostrarDialogo
If cIcono.IconoSeleccionado > -1 Then cIcono.CargarIcono Picture1
Set cIcono = Nothing

En el fichero se incluye un programa con varios ejemplos de uso.

 elegiricono.zip