FoxPro/Visual FoxPro - BUSCAR TREEVIEW (SOLUCION) PERO?

CLARO ESTA QUE YO TENGO EN EL TEXT ESTA ESTRUCTURA "15_NOMBRE DEL TEXT"

_GRPREPORTE='15'

_ENCONTRADO=.F.
_TAM=THISFORM.pageframe1.page1.treeinforme.Nodes.COUNT
FOR J= 1 TO _TAM STEP 1
_NO=THISFORM.pageframe1.page1.treeinforme.Nodes.ITEM(J).TEXT
CAR=AT('_',_NO)
IF CAR!=0 THEN
NU=SUBSTR(_NO,1,CAR-1)
IF TYPE(NU)='N' THEN
IF NU==_GRPREPORTE THEN
_ENCONTRADO=.T.
ENDIF
ENDIF
ENDIF
IF _ENCONTRADO=.T. THEN
THISFORM.pageframe1.page1.treeinforme.Nodes.ITEM(J).Parent.Expanded= .T.
THISFORM.pageframe1.page1.treeinforme.Nodes.ITEM(J).Selected= .T.
THISFORM.pageframe1.page1.treeinforme.Nodes.ITEM(J).Key
EXIT
ENDIF
ENDFOR
IF _ENCONTRADO=.F. THEN
MESSAGEBOX('Codigo no existe, verificar',0+48,'Buscando reportes')
ENDIF

PERO AUN HACE FALTA ALGO Y ES QUE DESDE CODIGO SE PRECIONE CLICK AUTOMATICAMENTE.

GRACIAS.

*LOS NODOS TIENEN ESTA ESTRUCTURA

*'15_COMPRAS'
*'16_VENTAS'

_ENCONTRADO=.F.
_TAM=THISFORM.pageframe1.page1.treeinforme.Nodes.COUNT
FOR J= 1 TO _TAM STEP 1
_NO=THISFORM.pageframe1.page1.treeinforme.Nodes.ITEM(J).TEXT
CAR=AT('_',_NO)
IF CAR!=0 THEN
NU=SUBSTR(_NO,1,CAR-1)
IF TYPE(NU)='N' THEN
IF NU==_GRPREPORTE THEN
_ENCONTRADO=.T.
ENDIF
ENDIF
ENDIF
IF _ENCONTRADO=.T. THEN
THISFORM.pageframe1.page1.treeinforme.Nodes.ITEM(J).Parent.Expanded= .T.
THISFORM.pageframe1.page1.treeinforme.Nodes.ITEM(J).Selected= .T.
THISFORM.pageframe1.page1.treeinforme.SetFocus
THISFORM.pageframe1.page1.treeinforme.NOdeClick(THISFORM.pageframe1.page1.treeinforme.Nodes(J))
THISFORM.pageframe1.page1.treeinforme.CLick
EXIT
ENDIF
ENDFOR
IF _ENCONTRADO=.F. THEN
MESSAGEBOX('Codigo no existe, verificar',0+48,'Buscando reportes')
ENDIF

ESPERO SIRVA PARA POSTERARLO

Bien hecho Kevin.
Saludos