DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private merlin As IAgentCtlCharacter
Private Sub CommandButton1_Click()
merlin.Hide
End Sub
Private Sub UserForm_Activate()
Agent1.Characters.Load "Merlin", "Merlin.acs"
Set merlin = Agent1.Characters("Merlin")
With merlin
.Left = 500
.Top = 350
.Show
.Speak "Ben merlin. Nasılsın dünyalı...?"
End With
End Sub