Como agrego icono a mi propia extencion?

[VisualGuallabo]

Pues te ayudare pondre mi modulo en la faq' que tiene un procedimiento Publico que ase eso que quieres aunque es mas profesional.
Cuenta con la entrada de datos siguiente.
'IconFile -Dirección del icono que va a tener la extensión.
'ExeFile -Dirección del programa con que se va abrir la extensión.
'ProgramName -Nombre con que se idectifica el programa.
'Extension - Extension que se va a registrar Ejemp Jpg (sin el pto)
'ExtensionDescripcion -La descripción del extension que se mostrara
'en el explorador Ejem "Winrar Archive" (Este es el caso de *.rar extesion del Winrar)
Esta en la FAQ' PAG 5
Ejemplo de su uso en el Evento que quieras
registrarExtension Directorio & "Data\IconRegisterExt.ICO", Directorio & App.EXEName & ".exe", "Mi programa", "ncr", "Salva File"