Use Microsoft Agent Control
Use Microsoft Agent Control
Rate Use Microsoft Agent Control
(1(1 Vote))
'[email protected]
'PUNE
' Add MICROSOFT AGENT CONTROL 2.0 from components
'search for acs that is installed in ur computer. search *.acs .u will find the agents in ur computer
Dim santaclaus As IAgentCtlCharacter
Private Sub Command1_Click()
santaclaus.Show
santaclaus.Speak Text1.Text
santaclaus.Hide
End Sub
Private Sub Form_Load()
Agent1.Characters.Load "santaclaus","get the path of the agent in your system and include the filename with the extension"
Set santaclaus = Agent1.Characters("santaclaus")
Text1.Text = "Hello World!"
End Sub
Use Microsoft Agent Control Comments
No comments yet — be the first to post one!
Post a Comment