FoxPro/Visual FoxPro - Amigo Plinio Help2

De nuevo aquí, no te molestaría pero es que he estado intentando y no capto el código.

Ya tengo el menu, los bitmaps, pero no me había dado cuenta de esto:

Note;
Lo pongo todo junto y el problema es que ejecuta solo lo que haya en el segundo encabezado y lo del primero no, hago click en el primero pero no responde.
A qué se deberá??

Y quito el segundo encabezado y funciona el primero....como es eso??

Gracias de nuevo►

***************Primer Encabezado "Archivos"
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

*************Segundo Encabezado "Consultas"

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

Case (tn_ItemPos == 2)
WAIT WINDOW 'Pagina en construccion' nowait

EndCase
EndWith
EndProc

***************FIN*********

Espero no ser un cafecito tan cargado!!!

Neo, realmente no he tenido tiempo de terminar el codigo que te prometí, desde 15 dias para aca casi no paro en la oficina. En cualquier momento te doy un buen empujon.,