选择菜单：工具-自定义工具箱-COM组件,并选择Microsoft Agent Control 2.0 按确定,它会添加到你的工具箱中.

将Microsoft Agent Control控件添加到窗体上

OK,现在开始!!!


Public Agent As AgentObjects.IAgentCtlCharacterEx

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

AxAgent1.Characters.Load("PL", "G:\Data\MyVBFile\Agent1\Genie.acs")
'从文件中装载精灵
Agent = AxAgent1.Characters("PL")

Agent.LanguageID = &H409
'设置语言为英文,只有这样它才可以说英文.
Agent.Balloon.FontName = Me.Font.Name
'设置气泡的字体,你还可以设置气泡的字体大小,颜色等.

Agent.Show()
Agent.Play("Wave")
Agent.Speak("Hello,Sir.")'说英文
Agent.MoveTo(400,200)'让精灵移动到指定位置
Agent.Play("Restpose")

End Sub