Power Builder - Crear MenuPopup Dinamico

Holas
Bueno resulta que tengo lo siguiente:
en las Global External functions tengo lo siguiente,,

Function Long CreatePopupMenu () LIBRARY "USER32.DLL"
Function Long TrackPopupMenuEx (Long hMenu,Long wFlags,Long x,Long y,Long HWnd,Long lptpm) LIBRARY "USER32.DLL"
Function long AppendMenuA (long hMenu,Long wFlags,Long wIDNewItem,String lpNewItem) LIBRARY "USER32.DLL" ALIAS FOR "AppendMenu"
Function Long DestroyMenu (long hMenu) LIBRARY "USER32.DLL"
Function long GetCursorPos (Pointapi lpPoint) LIBRARY "USER32.DLL"

y en evento RbuttonDown de la window tengo lo siguiente:

Constant long MF_CHECKED = 8
Constant long MF_APPEND = 256
Constant long TPM_LEFTALIGN = 0
Constant long MF_DISABLED = 2
Constant long MF_GRAYED = 1
Constant long MF_SEPARATOR = 2048
Constant long MF_STRING = 0
Constant long TPM_RETURNCMD = 256
Constant long TPM_RIGHTBUTTON = 2

Long H_menu,val,HWND
Pointapi Pa

HWND = Handle(W_main)

H_menu = CreatePopupMenu()

string a,b,c

a = "Holas..."
b = "Prueba"
c = "Shaussss"
//Continua

//Continuacion

AppendMenuA (H_menu, MF_STRING, 1, a)
AppendMenuA (H_menu, MF_DISABLED, 2, b)
AppendMenuA (H_menu, MF_SEPARATOR, 3,"")
AppendMenuA (H_menu, MF_CHECKED, 4, c)

GetCursorPos (Pa)

val = TrackPopupMenuEx(H_menu, TPM_LEFTALIGN or TPM_RETURNCMD or TPM_RIGHTBUTTON, Pa.x, Pa.y,HWND,0)

DestroyMenu (H_menu)

Mi proble es el siguiente,, Nescesito crear menus de forma dinamica y trate de probar con este Ejemplo que sale en el "Api-guide" (Para visual) , el punto es que me da error en el primer AppendMenuA Y no me deja pasar y Luego en la parte del TrackPopupMenuEx con esos Or que aparecen...
El caso es que nescesito ver como puedo arreglar este Ejemplo o como puedo de otro modo Crear menus Dinamicos,,

Alguna Sugerencia ¿?

De antemano gracias,,

Hola....

Lo mejor y mas sencillo que puedes hacer es crear un menu en el pintor de PB con cierto Nro de Items (p.e. 10) y dejarlos en estado de invisibilidad, luego lo modificas en tiempo de ejecucion, algo asi como:

NombreMenu.item[1].item[5].Text = "Mi cadena"
//Finalmente llamamos al menu
PopMenu(nombremenu, PointerX(), PointerY())

Saludos y suerte.

J.

Ok,, Gracias por la segerencia,
XD