关于对象变量的问题

[netseeker]

我编写了以下一段代码用来操纵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

请高手指教！

[xiaoxinghappy]

这样子就可以了

Option Explicit

Private 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 类型的对象