Menampilkan Pesan animasi MirosoftAgent

Pernakah anda melihat Animasi Merlin Pada Microsoft office 2003

Contohnya pada MS. Word pesan animasi itu tiba tiba muncul membawa suatu pesan.

Nah pada visual basic jika anda ingin menampilkan animasi tersebut anda biasa

Meggunakan langkah sebagai berikut:

1. Ketikan script berikut :

Dim merlin As IAgentCtlCharacterEx

Const DATAPATH = "merlin.acs"

Private Sub Form_Load()

Agent1.Characters.Load "merlin.acs", DATAPATH

Set merlin = Agent1.Characters("merlin.acs")

merlin.LanguageID = &H409

merlin.Show

merlin.MoveTo 700, 10

merlin.MoveTo 700, 500

merlin.MoveTo 100, 500

merlin.MoveTo 400, 300

merlin.Speak "Selamat Datang di Program Ini"

merlin.Hide

End Sub

Keterangan : merlin.acs merupakan karakter animasi yang dipanggil