Grazie per la risposta, MdE2005.
Quindi, da come dici, come ho fatto per i files doc
codice:
    Case "doc"
        Ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & NomeFile)
        Exit Sub
Basta solo prolungare la lista nel Case:
Case "doc", "gif", "jpg", "png", ecc
Ci provo e faccio sapere

Grazie intanto