FoxPro/Visual FoxPro - Amigos...Alguien me puede ayudar

Resulta que estoy tratando de terminar un menu, esos que nos proporcionó "Plinio" (Menus Sexys). Acerca de esto tengo una duda, digamos que tengo 2 encabezados:

Archivos I Consultas

Entonces cuando pulso en un submenu de archivos, si abre el formulario, lo cierro y ahora pulso en un submenu de consultas y no responde, a qué se deberá. Ahi les dejo el codigo:

Procedure OnSelection( tn_MenuPos, tn_ItemId )
Do case
Case tn_MenuPos =1
FirstMenu( tn_MenuPos, tn_ItemId - 1000 )
ENDCASE
EndProc

Procedure FirstMenu( tn_MenuPos, tn_ItemPos )

With po_Menu
Do case
Case (tn_ItemPos = 1)
DO FORM altas.scx

Case (tn_ItemPos = 2)
DO FORM modificaciones.scx

Case (tn_ItemPos = 3)


Case (tn_ItemPos = 4)
DO FORM eliminacion.scx


EndCase
EndWith
EndProc

******************
Procedure OnSelection( tn_MenuPos, tn_ItemId )
Do case
Case (tn_MenuPos = 2)
FirstMenu( tn_MenuPos, tn_ItemId - 2000 )

ENDCASE
EndProc

Procedure FirstMenu( tn_MenuPos, tn_ItemPos )

With po_Menu
Do case
Case (tn_ItemPos = 1)
DO FORM busquedas.scx


EndCase
EndWith
EndProc

*****************************

Espero me puedan ayudar.

Gracias►