Imports AgentObjects
Dim AxAgent1 As AgentObjects.Agent
Dim xgent As AgentObjects.IAgentCtlCharacterEx
'AxAgent1.Connected = True
Dim myobject As Object = CType("merlin.acs", Object)
AxAgent1.Characters.Load("merlin", myobject)
xgent = AxAgent1.Characters("merlin")