Power Builder - Creacion Acceso directos

Hola. He enviado a la seccion de codigo la forma de crear accesos directos a nuestra aplicacion. Para ello utilizo la libreria de visual basic (no es lo mas profesion posible pero funciona) y mientras publican el codigo lo pongo como una nota por si la gente esta interesada !!!!
Un saludo

// declaracion de la funcion.
function long fCreateShellLink (string lpstrFolderName ,string lpstrLinkName , &
string lpstrLinkPath , string lpstrLinkArgs ) library "VB5stkit.dll"

// en el codigo del script

string ls_nombre_acceso , ls_ejecutable, ls_destino

ls_nombre_acceso = "Mi aplicacion"
ls_ejecutable = "c:\mi_ruta\aplicacion.exe"
ls_destino = "CSIDL_STARTMENU"

// creamos un acceso directo a la aplicacion

if fCreateShellLink("..\..\Escritorio", ls_nombre_acceso, ls_ejecutable, ls_destino) = 0 then
// no se ha creado el acceso, entonces probamos con la version en ingles de windows
if fCreateShellLink("..\..\Desktop", ls_nombre_acceso, ls_ejecutable, ls_metodo) = 0 then
messagebox("Error","No se ha podido crear el acceso directo a la aplicación")
end if
end if

// añadimos la aplicación en el menu programas

ls_destino = "CSIDL_PROGRAMS"

if fCreateShellLink("", ls_nombre_acceso, ls_ejecutable, ls_destino )= 0 then
messagebox("Error","No se ha podido incluir la aplicación en el Menú Programas")
end if

// incluir aplicacion en el menu inicio

ls_destino = "CSIDL_STARTMENU"

if fCreateShellLink("Inicio", ls_nombre_acceso, ls_ejecutable, ls_destino)= 0 then
// lo probamos con la version en ingles del windows
if fCreateShellLink("Startup", gs_nombre_aplicacion, ls_ejecutable, ls_metodo) = 0 then
messagebox("Error","No se ha podido incluir la aplicación en el menú INICIO")
end if
end if