Obtener icono

[& eDu &]

Bueno, necesito mostrar el icono de un archivo da = la extension y mostrarlo en un picture,

la variable que recoje la ruta del fichero es:

sRuta


Grax

He probado con

Código (vb) [Seleccionar] Expandir

Private Declare Function ExtractIcon Lib "shell32.dll" Alias _
      "ExtractIconA" (ByVal hInst As Long, _
                      ByVal lpszExeFileName As String, _
                      ByVal nIconIndex As Long) As Long

Pro no me sale :S

[ssccaann43 ©]

Hola, revisa este enlace: http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/codigo-fuente-extractor-de-iconos.htm