关于对象变量的问题

Question

我编写了以下一段代码用来操纵MS agent对象：
Option Explicit
Dim angent As IAgentCtlCharacter
Private Sub Form_Load()
    Dim an
    Agent1.Characters.Load "genie"
    Set angent = Agent1.Characters("genie")
    angent.Show 2
    angent.Speak "hello!"
    angent.Play "wave"
    
For Each an In Agent1.Characters("genie").AnimationNames
        List1.AddItem an
    
Next
     
最后一段想改成以下代码却不能成功，在智能提示中看不到agent有animationnames属性
 For Each an In agent.AnimationNames
        List1.AddItem an
    
 Next
   
请高手指教！

Answer 1

这样子就可以了Option ExplicitPrivate Sub Form_Load()
Dim angent As IAgentCtlCharacterEx
    Dim an
    Agent1.Characters.Load "genie"
    Set angent = Agent1.Characters("genie")
    
    angent.Show 2
    angent.Speak "hello!"
    angent.Play "wave"
    Set angent = Agent1.Characters("genie")
    For Each an In angent.AnimationNames
            List1.AddItem an
    Next
End Sub
angent 是 IAgentCtlCharacterEx 类型的对象