Animasi Seperti Office Assistant dengan Visual Basic (VB6.0)

‘Menggunakan Microsoft Agent Control 2.0

Dim Agent As IAgentCtlCharacterEx

Private Sub Form_Load()

Dim DataFile As String

DataFile = App.Path & “\GENIE.ACS”

Agent1.Characters.Load “GENIE.ACS”, DataFile

Set Agent = Agent1.Characters(“GENIE.ACS”)

Agent.Show

Agent.MoveTo 620, 120

Agent.Speak “Selamat Datang di Solobro.wordpress.com”

End Sub