>>I try to use MS Agent ActiveX Control in VFP! What should I do?
>>Any sample code! Thank you!
>
>Here's the code, once the controls are on the form.
>
>
>*****
>Thisform.Agent1.Characters.load("Genie", "genie.acs")
>Thisform.Agent1.Characters.load("Merlin", "Merlin.acs")
>
>Genie = Thisform.Agent1.Characters("Genie")
>Merlin = Thisform.Agent1.Characters("Merlin")
>
>Genie.Get("Animation", "Annouce, AnnouceReturn, Pleased, PleasedReturn")
>Merlin.Get("Animation", "Confused, ConfusedReturn, Sad, SadReturn")
>
>Genie.MoveTo(100,100)
>Genie.Show
>
>Merlin.MoveTo(300,100)
>Merlin.Show
>
>Genie.Play("Annouce")
>GenieRequest = Genie.Speak(" Why did the chicken cross the road?")
>
>Merlin.Wait(GenieRequest)
>Merlin.Play("Confused")
>MerlinRequest = Merlin.Speak("I don't know. Why did the chicken cross the road?")
>
>Genie.Wait(MerlinRequest)
>Genie.Play("Pleased")
>GenieRequest = Genie.Speak("To get to the other side.")
>
>Merlin.Wait(GenieRequest)
>Merlin.Play("Sad")
>MerlinRequest = Merlin.Speak("I never should of asked.")
>
>********** End ***



One thing I forgot.

Place the MS Agent Control within an OLE Container and name the Agent Control Agent1.
>
>Code Originally from Henry W. Petry IV
>
>
>Hope this helps