Peedy.Speak _
"Guten Tag|Hallo|Willkommen|Ich Grüße sie|Freut mich sie zu sehen"

List1.Clear
For Each Animation In Peedy.AnimationNames
  List1.AddItem Animation
Next

Private Sub Command5_Click()
  Peedy.GestureAt (Form1.Left + Command5.Left) / Screen.TwipsPerPixelX, _
      (Form1.Top + Command5.Top) / Screen.TwipsPerPixelY
End Sub

Private Sub Command6_Click()
  Peedy.MoveTo (Form1.Left + Command6.Left) / Screen.TwipsPerPixelX, _
      (Form1.Top + Command6.Top) / Screen.TwipsPerPixelY
End Sub