Visual Basic - Reconocer icono en una Pc

HOLA

Lo que quiero es "Asociar un icono a un tipo de objeto", tengo un programa que me guarda archivos con la extención .edr y he echo un icono para esta extecion pero como puedo hacer que mi pc lo reconosca con el icono que he hecho. asi como lo hace Word, Excel, etc.

pero te refieres por medio de codigo de VB?

DIM ext as string
dim fixer as string

busq=instr(fixer,".")
ext = left(len(fitxer)-busq) <-- conseguimos las extension del archivo
if (ext="edr")then exec ......

SUERTE,

SMK