Public Agent

Set Agent=WScript.CreateObject("Agent.Control.1")

Agent.Connected = True
Agent.Characters.Load "MERLIN" , "C:\WINDOWS\MSAGENT\CHARS\MERLIN.ACS"
Set MERLIN = Agent.Characters ("MERLIN")

MERLIN.Show

MERLIN.MoveTo 300, 200

MERLIN.Play "Greet"

MERLIN.Speak "Hello I'm MERLIN"
MERLIN.Speak ("Time is " &time)

MsgBox "ボタンを押すと終了 "