Add this code to the Click event of the command button:
Merlin.Show 'This shows Merlin
Merlin.MoveTo me.Left / 15 + picPicture.Left / _
15 + 120, me.Top / 15 + picPicture.Top _
/ 15 'Makes Merlin move next to the picture.
Merlin.Speak "Hocus Pocus" 'This makes Merlin _
say "Hocus Pocus", which is a spell to make _
the picture disappear.
Merlin.Play "DoMagic1" 'This makes Merlin _
lift his wand
Now we get on to the interesting part. This is where we add the code which sets the Request (I called the request object reqDisappear):
Set reqDisappear = Merlin.Play("DoMagic2") 'This _
not only sets the request but it also plays _
the animation.
Now the whole thing (sans comments) should look like this:
General | Declarations
Dim Merlin As IAgentCtlCharacter
Const MERLINPATH = "Merlin.acs"
Dim reqDisappear As Object
Private Sub cmdStart_Click()
Merlin.Show
Merlin.MoveTo me.Left / 15 + picPicture.Left / _
15 + 120, me.Top / 15 + picPicture.Top _
/ 15
Merlin.Speak "Hocus Pocus"
Merlin.Play "DoMagic1"
End Sub
Private Sub Form_Load()
Agent1.Characters.Load "Merlin", MERLINPATH
Set Merlin = Agent1.Characters("Merlin")
End Sub
If you try the code now, you'll be able to see how you are progressing. Don't forget to save your code regularly too. See the McAfee Clinic for help with this.