Hi Daniel,

There shouldn't be a problem. If these are shortcut menus then only one can be used at a time. Based on your original code try something like:

IF button=2 .AND. !THISFORM.lMenuActive
  DO CASE
    CASE ALLTRIM(datalog.type)=='EQUIP'
      THISFORM.lMenuActive = .T.
      DO core_eq.mpr
    CASE ALLTRIM(datalog.type)=='FOLDER'
      THISFORM.lMenuActive = .T.
      DO core_ut.mpr
  ENDCASE
  THISFORM.lMenuActive = .F.
ENDIF

You don't need RELEASE.
Regards,
Viv