Menampilkan Pesan Menggunakan User Agen Pada VB 6.0

Nah artikel kali ini manusia biasa coba membuat kotak pesan menggunakan Microsoft Agent Control 2.0 untuk diketahui kotak pesan menggunakan user agen ini kita hanya cukup memanggil sang penyihir (Merlin) yang merupakan bawaaan asli dari Windows. Nah, bagi yang belum tau, semoga artikel ini bermanfaat bagi rekan-rekan sekalian. Baik sekarang kita lanjutkan kecara pembuatannya saja. WOKE

Pertama-tama buatlah project baru dengan pilihan standart exe, Pilih menu Project dan klik Components... Kemudian beri tanda centang pada Microsoft Agent Control 2.0. dan klik OK

Nah kemudian pada toolbos akan bertambah sebuah komponen bernama agent……. Lalu klik icon tersebut, dan tambahkan pada form anda. Sudah lanjut lagi kalo begitu…… Nah, tampilannya entar seperti ini :




Kemudian ketikkan coding (kalo malas copy paste aja) berikut pada coding editor anda dengan cara klik icon view code yang ada pada sudut kanan properties project:

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 // dapat diubah sesuai dengan kebutuhan pembacaan dari x,y
merlin.MoveTo 700, 500 // dapat diubah sesuai dengan kebutuhan pembacaan dari x,y
merlin.MoveTo 100, 500 // dapat diubah sesuai dengan kebutuhan pembacaan dari x,y
merlin.MoveTo 400, 300 // dapat diubah sesuai dengan kebutuhan pembacaan dari x,y
merlin.Speak "Kreasi By : Manusia Biasa Contact : http://jenggotcommunity.blogspot.com"
merlin.Hide
End Sub
Setelah itu klik tombol start atau tekan F5 pada keyboard anda. Kalo dijalankan tampilannya seperti ini:


Jika ingin melakukan hasil yang maksimal silahkan kreasi anda.
Sekian artikel dari saya semoga bermanfaat bagi anda sekalian. SELAMAT MENCOBA!!!!!