Coloque tal cual como me lo indico, pero no sucede nada, con el depurador me muestra que el codigo:
TYPE( _Screen.Activeform.Name ) es igual a "U".

¡Lo siento mucho! Esta línea de código debe ser:

TYPE( '_Screen.Activeform.Name' ) = 'C'

Las comillas se requieren para utilizar el TYPE() función