Самодельный Callback

[alibek]

Привет, народ
Есть у меня один вопрос по CallByName. Чтобы быть понятней, поясню на конкретном примере. Есть одна программа (складская), в ней форма, к примеру frmDoc. Есть другая форма, со списком товаров, frmGoods (открывается модально). На ней две кнопки, "Add", "Close", по нажатию на Close форма закрывается, по нажатию на Add выбранный товар добавляется в форму frmDoc.
Форма frmGoods вызывается процедурой, которая имеет примерно такой вид:

Код: Выделить всё

Sub GetGoods(..., Optional ByVal CallbackObject As Object, Optional ByVal CallbackProc As String)

и при нажатии на кнопку Add (на форме frmGoods) срабатывает такой код:

Код: Выделить всё

CallByName frmDoc, "DoItemAdd", ...

. Соответственно, в форме frmDoc есть Public Sub DoItemAdd(...), в которую передается ID выбранного товара
Все работает замечательно, но вот вопрос: что надо указывать, чтобы вызвать процедуру, которая размещена не в форме, а в глобальном модуле? Пустую строку задавать нельзя, а при указании проекта компилятор ругается.

[skiperski]

???
Классы не могут быть созданы в простом модуле, следовательно и вызваны оттуда. Надо делать оболочку в форме или классе.

[alibek]

Ясно... Значит перенесу все в класс.
З.Ы. skiperski, прочитал твой ответ, не поверил, глянул хэлп -- и правда, в качестве Object выступает ActiveX object Ну все-равно спасибо