Option Explicit

Dim Merlin As IAgentCtlCharacter

Private Sub Form_Load()
  Dim Animation As Variant

  On Error Resume Next
  Agent1.Characters.Load "Merlin", "Merlin.acs"
  Set Merlin = Agent1.Characters("Merlin")
  Merlin.Show

  List1.Clear
  For Each Animation In Merlin.AnimationNames 
    List1.AddItem Animation
  Next Animation

  With Merlin
    .MoveTo (Form1.Left + Form1.Width) / Screen.TwipsPerPixelX, _
         (Form1.Top + (Form1.Height / 2)) / Screen.TwipsPerPixelY
    .Play "Surprised"
    .Play "Greet"
    .Speak "Hallo, Mein Name ist Merlin. Stets zu Diensten."
    .Play "GestureDown"
    .Speak "Klicken sie bitte auf einem Listeneintrag, " & _
           "um meine Fähigkeiten zu testen."
  End With
End Sub

Private Sub List1_Click()
  On Error Resume Next
  Merlin.Stop
  Merlin.Play List1.Text
  Merlin.Speak "Meine Animation " & List1.Text
End Sub