Para DJ Miao

Flaco hay tienes.
Recuerda que tienes que registrar el dll.
'C:\InfoAnimal\dll\Interop.AgentObjects.dll

En mi caso lo puse en la carpeta del mismo programa .
Hay unos programas que te ensenan los nombres para las
las expreciones .
por ejemplo
Agente.Characters("peedy").Play("Greet")

Yo mas bien lo use para saber

Agente.Characters.Item("peedy").Height = 90
Agente.Characters.Item("peedy").Width = 112


Movia el parajo y el programa te dice el Height y el
Width .



Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click


Dim Agente As New AgentObjects.AgentClass
Agente.Connected = True

Agente.Characters.Load
("peedy", "C:\InfoAnimal\Peedy.acs")

Agente.Characters.Item("peedy").Height = 90
Agente.Characters.Item("peedy").Width = 112
Agente.Characters("peedy").Show()
Agente.Characters("peedy").Play("Greet")
Agente.Characters("peedy").Think("Comprate un
libro...")

End Sub





Miao...

Comprate un libro

Vi un post tuyo mas abajo sobre como poner un agente.
El caso es que despues de ponerlo me da un error
"El tipo agentobjects.agentclass no esta definido" ¿Me
falta algo?


Public Agente As New AgentObjects.AgentClass

If flagPeedy = False Then
flagPeedy = True
Agente.Characters("peedy").Show()
Agente.Characters("peedy").MoveTo(10, -2)
Agente.Characters("peedy").Play("Greet")
Agente.Characters("peedy").Think("Hola
bienvenido. Voy a estar monitoreando que todo te saga
bien.")
Me.RadioButton2.Checked = True
Else

flagPeedy = False
Agente.Characters("Peedy").Hide()
Me.RadioButton1.Checked = True
End If
.