FoxPro/Visual FoxPro - FUNCION PARA SABER QUE PROGRAMA SE ESTA EJECUTANDO

Hola amigos:

Necesitaria cargar en una variable el programa ó formulario que se este ejecuntado(el que tenga el foco, el que este activo), pero no se que función haria este trabajo.

Gracias.

nombre del formulario:
var = thisform.name o bien
var = ActiveScreen.name

nombre del programa:
var = program()