by Vicky Jadhav (Vj) (8 Submissions)
Category: Windows System Services
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 12th October 2004
Date Added: Mon 8th February 2021
Rating:
(1 Votes)
Use Microsoft Agent Control
'[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