ÖйúÍø¹ÜÁªÃË

¡¡¡¡ 'Add component "Micosoft Agent Control X.0"
Option Explicit
Private Dot0 As IAgentCtlCharacterEx
Private AgentRequest As IAgentCtlRequest
Private Sub Agent1_Click(ByVal CharacterID As String, _
 £ £ £ £ £ £ £ £ £ £ £ £ ByVal Button As Integer, _
 £ £ £ £ £ £ £ £ £ £ £ £ ByVal Shift As Integer, _
 £ £ £ £ £ £ £ £ £ £ £ £ ByVal x As Integer, _
 £ £ £ £ £ £ £ £ £ £ £ £ ByVal y As Integer)
 £  If Button = 2 Then
 £ £ £ PopupMenu Pop
 £  End If
 £ 
End Sub
Private Sub Form_Load()
 £  Set AgentRequest = Agent1.Characters.Load("Dot0", _
 £ £ £ £ £ £ £ £ £ £ £ "C:\WINNT\msagent\chars\merlin.acs")
 £  Set Dot0 = Agent1.Characters.Character("Dot0")
 £  Dot0.Show (0)
 £  Dot0.AutoPopupMenu = False
End Sub
Private Sub Pleased_Click()
 £  Dot0.StopAll
 £  Dot0.Play "Pleased"
End Sub
Private Sub Reading_Click() ÖйúÍø¹ÜÂÛ̳bbs.bitsCN.com
 £  Dot0.StopAll
 £  Dot0.Play "Reading"
End Sub
Private Sub Writing_Click()
 £  Dot0.StopAll
 £  Dot0.Play "Writing"
End Sub