Public Class Form1
    Dim Peedy As AgentObjects.IAgentCtlCharacterEx
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Agent1.Characters.Load("Peedy1", "Peedy.acs")
        Peedy = Agent1.Characters("Peedy1")
 
        'Charakter anzeigen
        Peedy.Show()
        Peedy.MoveTo(412, 102)
 
        System.Threading.Thread.Sleep(2000)
        Peedy.Speak("Hallo")
 
    End Sub
 
    Private Sub AxAgent1_ActivateInput(ByVal sender As System.Object, ByVal e _
      As AxAgentObjects._AgentEvents_ActivateInputEvent) Handles _
      Agent1.ActivateInput
 
    End Sub
 
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
        Peedy.Speak( _
        "Tschüss!")
        Peedy.Hide()
        System.Threading.Thread.Sleep(3000)
        Application.Exit()
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
        Peedy.Stop()
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
 
    End Sub
 
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs)
 
    End Sub
 
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
 
    End Sub
 
    Private Sub SuchenToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs)
        Peedy.Play("Searching")
    End Sub
 
    Private Sub AnimationStoppenToolStripMenuItem_Click(ByVal sender As _
      System.Object, ByVal e As System.EventArgs)
        Peedy.Stop()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
        Peedy.MoveTo(200, 200)
 
    End Sub
 
    Private Sub SuchenToolStripMenuItem1_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles SuchenToolStripMenuItem1.Click
        Peedy.Play("Searching")
    End Sub
 
    Private Sub StoppToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles StoppToolStripMenuItem.Click
        Peedy.Stop()
    End Sub
 
    Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
        Peedy.Stop()
        Peedy.MoveTo(412, 102)
        Peedy.Speak( _
        "Tschüss!")
        System.Threading.Thread.Sleep(1500)
        Peedy.Hide()
        System.Threading.Thread.Sleep(2000)
        Application.Exit()
    End Sub
 
    Private Sub IchWohneToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles IchWohneToolStripMenuItem.Click
 
    End Sub
 
    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e _
      As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles _
      LinkLabel1.LinkClicked
        If TextBox1.Text = "" Then
            Peedy.MoveTo(450, 300)
            Peedy.GestureAt(400, 450)
            Peedy.Speak("\Spd=130\""\Map=""Geben Sie hier einen Text ein," & _
              """=""Geben Sie hier einen Text ein, ""\")
            Peedy.GestureAt(650, 700)
            Peedy.Speak( _
    "\Map=""und klicken Sie auf Vorlesen.""="" und klicken Sie auf" & _
    "Vorlesen!""\")
            System.Threading.Thread.Sleep(2000)
            Peedy.MoveTo(412, 102)
        Else
            Peedy.Speak( _
        TextBox1.Text)
        End If
    End Sub
 
    Private Sub RedenToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles RedenToolStripMenuItem.Click
        Peedy.Speak("Hallo, dass ist meine normale Sprache!")
    End Sub
 
    Private Sub WoWohnstDuToolStripMenuItem_Click(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      WoWohnstDuToolStripMenuItem.Click
        Peedy.Speak( _
"\Map=""Ich wohne in Wischuell Bäisik.""=""Ich wohne in Visual Basic.""\")
    End Sub
 
    Private Sub WieHeisstDuToolStripMenuItem_Click(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      WieHeisstDuToolStripMenuItem.Click
        Peedy.Speak( _
"\Spd=130\""\Map=""Ich bin Piidy.""=""Ich bin Peedy""\")
    End Sub
 
    Private Sub SchimpfenToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles SchimpfenToolStripMenuItem.Click
        Peedy.Speak( _
        "\chr=""monotone""\Spreche ich monoton?")
    End Sub
 
    Private Sub FlüsternToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles FlüsternToolStripMenuItem.Click
        Peedy.Speak( _
        "\Chr=""Whisper""\Ich flüstere dich an.")
    End Sub
End Class