Dim sims As IAgentCtlCharacterEx
Dim sims_id
Private Sub cmdLoad_Click()
Dim acs
Agent1.Connected = True
Agent1.Characters.Load sims_id, acs
Set sims = Agent1.Characters.Character(sims_id)
End Sub
Private Sub cmdUnload_Click()
Agent1.Characters.Unload sims_id
End Sub
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0 '说话
sims.Speak Text1
Case 1 '想
sims.Think Text1
Case 3 '身体向左
sims.Play ("GestureLeft")
Case 2 '惊讶
sims.Play ("Surprised")
Case 4 '请的姿势
sims.Play ("Pleased")
Case 5 '右
sims.Play ("GestureRight")
Case 6 '上
sims.Play ("GestureUp")
Case 7 '下
sims.Play ("GestureDown")
End Select
End Sub
Private Sub Command2_Click()
sims.Show
sims.Left = 800
sims.Top = 600
sims.Width = 80
sims.Height = 80
sims.MoveTo 300, 400
End Sub
Private Sub Command3_Click()
sims.Hide
End Sub
可以显示卡通老人的各种动作。该代码在（win2000以上版本有效）
－－－－－－－
源码下载地址：
http://blog.csdn.net/yefanqiu
中的【叶帆程序】－有意思的老人源码
