Power Builder - Icono de Acceso directo o Shortcut

Hola a todos los de foro
Estoy intentando crear un icono de acceso directo o shortcut de mi aplicaciòn en un directorio especifico. Alguien podria ayudarme con la instrucciìn para hacerlo,

Gracias.

basicamente es lo siguiente..

oleobject ws, loo_shortcut
string ls_desktop

ws = CREATE oleobject
ws.ConnectToNewObject("WScript.Shell")

ls_desktop = ws.SpecialFolders("Desktop")
loo_shortcut = ws.CreateShortcut(ls_desktop +"\Aca_Esta.lnk")
loo_shortcut.TargetPath = "C:\Archivos de programa\Internet Explorer\IEXPLORE.exe"
loo_shortcut.WorkingDirectory = ls_desktop

loo_shortcut.WindowStyle = 1
loo_shortcut.IconLocation = ws.ExpandEnvironmentStrings("C:\Archivos de programa\Internet Explorer\IEXPLORE.exe",0")

loo_shortcut.Save

Espero te sirva
PD:Te embie un ejemplo completoa tu correo

Hola RattleHead:

Podrias enviarme el ejemplo a mi tambien... tre lo agardecería muchísimo amigo...

Gracias

please me gustaria, obtener el ejemplo. gracias.