'引用Agent2.0组件,c:\winnt\system32\Agentctl.dll Private Sub Command1_Click() Dim zs As IAgentCtlCharacter Agent1.Characters.Load "Merlin", "C:\WINNT\msagent\chars\merlin.acs" Set zs = Agent1.Characters("Merlin") zs.Show zs.Speak "测试成功,你好!" End Sub acs是角色动画文件,是可以自己做的。更详细的说明请见:http://www.microsoft.com/msagent/downloads/developer.asp