Activex MsAgent

Oigan alguien sabe porque me presenta error estas lineas de código :

ochar = CREATEOBJECT('agent.control.2')
ochar.connected = .t.
ochar.characters.load('merlin','merlin.acs')
ochar.characters.character('merlin').show()

FOR EACH cAnimaciones IN
ochar.characters.Character('merlin').AnimationNames
?cAnimaciones
NEXT

Deseo usar los agentes de microsoft, pero me presenta este error en la
linea del FOR EACH :

NO SE ENCUENTRA LA PROPIEDAD ANIMATIONNAMES


PD : Estoy en XP, sin embargo en W98SE me funciona de maravilla, que
será...?


gracias a todos

Oigan alguien sabe porque me presenta error estas lineas de código :

ochar = CREATEOBJECT('agent.control.2')
ochar.connected = .t.
ochar.characters.load('merlin','merlin.acs')
ochar.characters.character('merlin').show()

FOR EACH cAnimaciones IN
ochar.characters.Character('merlin').AnimationNames
?cAnimaciones
NEXT

Deseo usar los agentes de microsoft, pero me presenta este error en la
linea del FOR EACH :

NO SE ENCUENTRA LA PROPIEDAD ANIMATIONNAMES


PD : Estoy en XP, sin embargo en W98SE me funciona de maravilla, que
será...?


gracias a todos