Crear, Habilitar o bloquear menús y submenus en foxpro

Saludos.. Mi pregunta es como hago para crear un menu, habilitar o bloquear opciones del menu según los permisos de usuario

yo he probado con varias opciones y he podido bloquear las opciones del menu que son directas pero los submenú no se como bloquearlos le mostrare algo del código para que tengan una idea de los que hablo

DEFINE POPUP MEMOS_GENERALES MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE POPUP FORMULARIOS MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE POPUP MANTENIMIENTO MARGIN RELATIVE SHADOW COLOR SCHEME 4

select módulos.codmod,modulo,nombreim,posimenu,columna,acceso from usuamodu,módulos where CODUSU = fichausu AND módulos.codmod = usuamodu.codmod into table Home2 + Recurso + '.dbf'

go top
posi = recno()
CUANTOS = RECCOUNT()
FOR I = 1 TO CUANTOS
formu = codmod
puede = acceso
NombreMo = alltrim(modulo)
nombreim = alltrim(nombreim)
A = int(val(posimenu))
columnas = val(columna)
FORMULARIO = HOME5+ '\formularios\'+nombremo

if columnas = 2 then
if puede = "ACTIVO"
DEFINE BAR A OF MEMOS_GENERALES PROMPT Nombreim
ON SELECTION BAR A OF MEMOS_GENERALES do form &FORMULARIO
else
if puede = "INACTIVO"
DEFINE BAR A OF MEMOS_GENERALES PROMPT Nombreim
SET SKIP OF BAR A OF MEMOS_GENERALES .t.
endif
endif
endif

si alguien puede ayudarme lo apreciaria