How to use Office Assistant in VB project

Use this Code in Module

Option Explicit

Public myCharacter      As IAgentCtlCharacterEx 'ms agent



Public Sub Merlin(Optional ByVal Msg As String, Optional ByVal Animation As String = "Explain")
    On Error Resume Next
    If myCharacter.Visible Then
        myCharacter.StopAll
        myCharacter.Play Animation
       
        If Not Msg = "" Then myCharacter.Speak Msg
    End If
End Sub

Public Sub showMerlin()
        myCharacter.Show
       
        'to botton right corner
        myCharacter.MoveTo 850, 550
End Sub

Use this code in Form

Option Explicit

Private Sub Command1_Click()
Merlin "Hello"

End Sub

Private Sub Form_Load()
    MyAgent.Characters.Load "Merlin", "Merlin.Acs"
    Set myCharacter = MyAgent.Characters("Merlin")
    myCharacter.SoundEffectsOn = True
   
    showMerlin
End Sub