rockandroll спасибо.

допёрло, вопрос можно считать закрытым.

может кому пригодится:

это в классе, который надо вызвать:

class MyClass

Public Property Get phWnd() As Variant
phWnd = Form1.Frame1.hWnd
End Property

Public Property Let phWnd(ByVal vNewValue As Variant)
phWnd = Form1.Frame1.hWnd
End Property

тут конечно логическая ошибка, но всё равно сработает, Let и Get надо различить, но это мелочи


а вот как вызвать form1 из другой библиотеки (повторю всё делается для работы из под arcgis):

class MyClass2

Private pForm As MyClass

Private Sub Class_Initialize()
Set pForm = New MyClass
End Sub

Private Property Get IContentsView_hWnd() As esriSystem.OLE_HANDLE
IContentsView_hWnd = pForm.phWnd
End Property

форма ж уже и сама создаётся при инициализации, но только нельзя ничего писать в
Class_Initialize для MyClass, ато срабатывает постоянно (это точно).