求教AgentObjects使用问题

删掉控件，直接实例化类试试看！
'显示精灵
Dim MyAgent As New AgentObjects.Agent
Dim Peedy As AgentObjects.IAgentCtlCharacterEx
Dim Request As AgentObjects.IAgentCtlRequest
MyAgent.Connected = True
Request = MyAgent.Characters.Load("Peedy")
Peedy = MyAgent.Characters.Character("Peedy")
Peedy.Show()
。
。
。
。
Peedy.Hide()
MyAgent = Nothing
Peedy = Nothing
Request = Nothing