Public Class clsAgent
 
    Private WithEvents AxAgent As AxAgentObjects.AxAgent
    Private mSpk As AgentObjects.IAgentCtlCharacter
    Private mSpkPropList As New ComboBox
    Private strActiveCharacter As String
    Private Enume As IEnumerator
 
    Public Sub New()
        strActiveCharacter = "Merlin"
        AxAgent = New AxAgentObjects.AxAgent
        Try
            AxAgent.Connected = True
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly)
        End Try
        LoadAgent(strActiveCharacter)
    End Sub
 
    Public Property ActiveCharacter() As String
        Get
            Return strActiveCharacter
        End Get
        Set(ByVal value As String)
            strActiveCharacter = value
            LoadAgent(strActiveCharacter)
        End Set
    End Property
 
    Public ReadOnly Property Actions() As _
      System.Windows.Forms.ComboBox.ObjectCollection
        Get
            Return mSpkPropList.Items
        End Get
    End Property
 
    Public Sub LoadAgent(ByVal strActiveCharacter As String)
        Try
            AxAgent.Characters.Load(strActiveCharacter, Mid$( _
              Application.ExecutablePath, 1, Len(Application.ExecutablePath) - _
              12) + strActiveCharacter + ".acs")
            mSpk = AxAgent.Characters(strActiveCharacter)
 
            mSpkPropList.Items.Clear()
            Enume = AxAgent.Characters.Character( _
              mSpk.Name).AnimationNames.GetEnumerator()
            While Enume.MoveNext
                mSpkPropList.Items.Add(Enume.Current)
            End While
 
            'PlayAgent(mSpkPropList.Items.Item(8), "Hallo " + 
            ' Sachbearbeiter.Value)
 
        Catch ex As Exception
 
        End Try
    End Sub
 
    Public Sub PlayAgent(ByVal Action As String, ByVal Text As String, Optional _
      ByVal posX As Integer = 5, Optional ByVal posY As Integer = 200)
        Try
            mSpk.Stop()
            mSpk.MoveTo(Convert.ToInt16(posX), Convert.ToInt16(posY))
            mSpk.Play(Action)
            mSpk.Play("RestPose")
 
            mSpk.Speak(Text)
 
        Catch ex As Exception
            MessageBox.Show(Text)
        End Try
    End Sub
 
    Public Sub Show()
        mSpk.Show(0)
    End Sub
 
    Public Sub Hide()
        mSpk.Hide(0)
    End Sub
End Class

Ciao

J?rgen

PS: geht nicht gibt's nicht