Cómo generar ICO en VB

Función de declaración privada ExtractIcon Lib "shell32.dll "alias" ExtractIconA" (ByVal hInst es Long, ByVal lpszExeFileName es String, ByVal nIconIndex es Long) es Long

Función de declaración privada dibujar icono Lib "usuario 32" ( ByVal hdc es Long, ByVal x es Long, ByVal y es Long, ByVal hIcon es Long) es Long

Subcomando privado 1_Click()

Dim lngIcon

lngIcon = extraer ícono (instancia de app . h, " c:\windows\NOTEPAD.EXE ", 0)

Si lngIcon = 0, entonces

MsgBox "Error al obtener el ícono”

Conector de salida

Otros

Foto 1. Cls

Imagen 1. Imagen = LoadPicture()

Imagen 1. AutoRedraw = True

DrawIcon Imagen1.hdc, 0, 0, lngIcon

Imagen 1. Actualizar

Guardar imagen imagen1. Imagen, " d:\test.ico "

Terminará si...

Finalizar conector