First, you need to add The Agent control, a command button and a label to the form. Set their properties according to this:
Command button: Name = cmdStart, Caption = "Start process"
Label: Name = lblSymbol
Agent control: Name = Agent1
Then add the next bit of code to the General | Declarations section of your form:
Dim Peedy As IAgentCtlCharacter
Const PEEDYPATH = "Peedy.acs"
You then need to add the following code to the Form_Load() section of code:
Agent1.Characters.Load "Peedy", PEEDYPATH
Set Peedy = Agent1.Characters("Peedy")
Peedy.MoveTo 100, 100 'MoveTo is used to move an _
agent character to the specified position.
Peedy.Show True 'Adding "True" to Show will make the _
agent character appear without playing its _
appearance animation.
Peedy.Play "RestPose"
This gets Peedy to a convenient position, ready to talk.