und wieso legst du dich nicht einfach nicht nur auf Peedy fest...
Private Sub PeedyStart([Color=red]Figur as string[/Color])
Dim Animation As Variant
On Error Resume Next
Agent1.Characters.Load [Color=red]Figur[/Color], [Color=red]Figur & ".acs"[/Color]
Set Peedy = Agent1.Characters([Color=red]Figur[/Color])
Peedy.Show
List1.Clear
For Each Animation In Peedy.AnimationNames
List1.AddItem Animation
Next Animation
With Peedy
.MoveTo (Form1.Left + Form1.Width) / Screen.TwipsPerPixelX, _
(Form1.Top + (Form1.Height / 2)) / Screen.TwipsPerPixelY
.Play "Surprised"
.Play "Greet"
.Speak "Hallo, dies ist ein Test."
.Play "GestureDown"
.Speak "Klicken sie bitte auf einem Listeneintrag, " & _
"um meine Fähigkeiten zu testen."
End With
End Sub
das war jetzt nur so ne idee... kann sein das ich etwas übersehen habe und es nicht funktioniert...
btw: hast du den Agent in Deutsch? wenn ja wo gibts den?