org'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()     Dot0.StopAll     Dot0.Play "Reading" End Sub Private Sub Writing_Click()     Dot0.StopAll     Dot0.Play "Writing" End Sub

OVER