Para probar, incluye el siguiente código en un proyecto nuevo.
Private Declare Function SHChangeIconDialog Lib "shell32" Alias "#62" (ByVal hOwner As Long, _
ByVal szFilename As String, ByVal Reserved As Long, lpIconIndex As Long) As Long
Private Sub Form_Load()
Dim Fichero As String, Valor As Long
Fichero = InputBox("Teclea un nombre de fichero para obtener sus iconos")
Valor = 0
If SHChangeIconDialog(hWnd, Fichero, 0, Valor) Then MsgBox "Elegido: " & Valor
End Sub
Posted
vie, ago 18 2000 19:21
by
Maverick