Не удается создать DLL

[yu13]

Помогите советом.
ActiveX DLL проект полностью компилируется и в отладке все работает.
Но не удается создать готовый файл .DLL
При попытке это сделать выдает ошибку:

Variable uses a type not supported in Visual Basic (Error 458)

При этом не локализует место ошибки.

Все переменные в проекте описаны.
Option Explicit стоит в каждом модуле.
В ссылках установлены только OLE Automation и ADO.
Самое "экстраординарное" что я использую - это недокументированная функция Function ObjPtr(Ptr As Unknown) As Long
из модуля VBA._HiddenModule.

У меня когда-то было что-то подобное, но не помню как вышел из положения.

Буду благодарен за все советы...

[ALX_2002]

Хм... У меня такое было, ( помоему ) когда были вставлены API функции, а параметрыами у них вставлены типовые пременные.

Т.е например

Type RECT
....
End Type

А вообще - если не сложно, покажи код.

[yu13]

Вот все API ф-ии которые там присутствуют:

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)

Private Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long

[d3drm]

Function ObjPtr(Ptr As Unknown) As Long

по ходу в этом ка раз трабл. попробуй перекомпилировать без етого, если заработает, значит я прав.

[tyomitch]

d3drm, ты конкретно не въехал.

ObjPtr - это стандартная функция VB. "Перекомпилировать без неё" невозможно.

[yu13]

Разобрался в чем дело. Оказывается VB не переваривает описание параметров функции:

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

, Optional Default As Variant = Null

Пришлось делать следующее:

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

, Optional Default As Variant
...
If IsMissing(Default) Then Default = Null

Странно, ведь если VB считает это ошибкой, то проект должен был сваливаться при отладке.
Однако, как я уже говорил проект полностью компилировался и работал в отладке.