Set AgentControl = CreateObject("Agent.Control.2")
If IsObject(AgentControl) Then
AgentControl.Connected = True
Path1 = "char.acs"
char1 = "CHAR"
AgentControl.Characters.Load char1, Path1
set CHAR = AgentControl.Characters (char1)
CHAR.LanguageID = &H409
CHAR.TTSModeID = "{CA141FD0-AC7F-11D1-97A3-006008273001}"
CHAR.MoveTo 0, 0
CHAR.Show
CHAR.Speak "hi"