В модуле формы делаю следующим образом:
Dim cls As clsMain 'clsMain-основной модуль DLL
cls = new clsMain
Dim app As IGxApplication
'GxApp-в основном модуле DLL, тип IGxApplication,
'в событии OnCreate делаю GxApp=hook
app=cls.GxApp
Всё равно app=Nothing