The final code

So now the entire code should look like this:

General | Declarations
Dim Peedy As IAgentCtlCharacter
Const PEEDYPATH = "Peedy.acs"
Private Sub Agent1_Bookmark(ByVal BookmarkID As Long)
Select Case BookmarkID
Case 100
lblSymbol.Caption = "A"
Case 200
lblSymbol.Caption = "B"
Case 300
lblSymbol.Caption = "C"
Case 400
lblSymbol.Caption = "1"
Case 500
lblSymbol.Caption = "2"
Case 600
lblSymbol.Caption = "3"
Case 700
lblSymbol.Caption = ""
End Select
End Sub
Private Sub cmdStart_Click()
Peedy.Speak "A,\mrk=100\ B,\mrk=200\" _
& "C\mrk=300\."
Peedy.Speak "One,\mrk=400\ Two,\mrk=500\" _
& "Three\mrk=600\."
Peedy.Speak "\mrk=700\"
Private Sub Form_Load()
Agent1.Characters.Load "Peedy", PEEDYPATH
Set Peedy = Agent1.Characters("Peedy")
Peedy.MoveTo 100, 100
Peedy.Show True
Peedy.Play "RestPose"


I hope you have enjoyed this tutorial. Please use the feedback form to send any comments about it to me.
If you would like to show your appreciation and support for The Agent LaunchPad, see the Thank me page.