objAgent

As Object

Одно из немногих обязательных свойств BalloonMessage. Вы должны передать этому свойству объект IAgentCtlCharacter.

Обратите внимание, что если не установить это свойство, то OCX не сможет работать. Не пытайтесь передать вместо IAgentCtlCharacter другой объект, это может привести к непредсказуемому поведению программы!

Пример:

Dim Agent As IAgentCtlCharacter

Set Agent = Agent1.Characters.Character("Default") 'загрузим персонаж по умолчанию

Set BalloonDialog1.objAgent = Agent 'передаем его в OCX