Merlin(sihirbaz) Dua Ediyorum

'not=Project menüsünden components tıklayın gelen bölümde Microsoft Agent Control 2.0 seçin

Dim merlin As IAgentCtlCharacterEx
Const DATAPATH = "merlin.acs"



Private Sub Command1_Click()
merlin.Play "GestureUp"
End Sub

Private Sub Form_Load()
Agent1.Characters.Load "merlin.acs", DATAPATH
Set merlin = Agent1.Characters("merlin.acs")
merlin.LanguageID = &H409
merlin.Show 'MERLİNİ GÖSTERİR
End Sub