Porque no me funciona?

[virla]

Copie unos códigos de una pagina, la cosa es que si corro la aplicación que
me baje corre perfectamente pero en la mía no hace nada.
es sobre el ShellExecute.
¿Alguien puede decirme porque es esto?
Antes les aclaro que tengo todo puesto las declaraciones de la API y todo lo
demás
aquí mi código

abreProg = myPath & "\" & LabelProg(Index).Tag ' este trae el nombre del
acceso directo
ShellExecute hWnd, "open", abreProg, vbNullString, vbNullString,
SW_SHOWNORMAL

el otro que es muy similar a este es con la función shell para por ejemplo
llamar a la función Shutdown, aquí también agregue la referencia al
shell32.dll

aquí mi código

EjecutarShellObject Trim$(Label1(1).Tag) 'aqui le mando la opcion que quiero
que ejecute
oShell.ShutdownWindows

ninguna de las opciones que se pueden ejecutar las corre y lo peor es que no
me da ningún error, pasa por todo el código pero no hace nada en ninguna de
los dos problemas.
bueno espero sus ayudas, desde ya muchas gracias

lo he probado en mi trabajo y solo funcionan algunos accesos directos y otros no