Class1-->Form1-->Class1'

[Alexanbar]

Есть Activex Dll, в состав которой входят Class1 и Form1.

Class1:
'--------
public F as string

public sub SelectFile
form1.show
end sub


public sub GetVal1 as string
...
end sub

'-----------


Form1
'-----------

private sub Form_Activate
dim Class2 as new Class1

Class2.GetVal1

....

end sub



Хотелось бы не создавать новый экземпляр класса Class1 как Class2, а использовать тотже экземпляр, из которого вызывается Form1.
Нужно не из экономии, а из-за того, что приходится параметр F передавать из одного объекта в другой, чтобы GetVal1 давала правильные результаты

[GSerg]

В activex модуль заведи и запиши туда переменную a as class1. При первом создании класса пиши set module1.a = new class1, к примеру. А потом бери эту ссылку всеми объектами. Глобальная, короче, переменная.
Другой выход - создать специальный friend метод у формы, который позволил бы запомнить ссылку во внутреннюю переменную формы.

[Alexanbar]

Сделал так: В модуле Modul1, входящем в dll, выделил глобальную переменную F. А в Class1 (и в другие классы) добавил свойство F:

public property get F() as string
f=Modul1.f
end property

public property Let f(v as string)

Modul1.f=v

end property