нужен пример OCX

Смысл? Почему ocx?

Напиши dll на VB. В семплах есть пример как это сделать.

> Сергей
Да как прицепить dll я знаю, я видел там один сэмпл который возвращает вроде сумму двух чесел. Мне это не потходит, мне нужен доступ к ThisDrawing

это конечно круто, но что с ним, что без него это почти одно и то же.

Ты ThisDrawing я так понимаю в dll можешь передавать как переменную ...
Может ерунду сказал но exe файл для работы с акадом на VB я писал...

SmeL, спасибо, Ваш код проясняет ситуацию. У меня теперь возникла очередная проблема. Мой код выполняется, но спустя некоторое время после выполнения (буквально несколько секунд), а иногда и во время выполнения, получаю FATALL ERROR. Код принципиально отличается совершенно незначительно.
Листинг ActiveX dll

Public Sub TestDllSub(Element As Object)
    
    Dim ssetObj As AcadSelectionSet
    Dim mode As Integer
    Dim gpCode(0) As Integer
    Dim dataValue(0) As Variant
    Dim groupCode As Variant, dataCode As Variant
    
    Set ssetObj = AcadApplication.ActiveDocument.SelectionSets.Add("SelSet")
    mode = acSelectionSetAll
    ssetObj.Select mode
        If (ssetObj.Count > 0) Then
            For Each Element In ssetObj
            'перебор элементов
            Next Element
        End If
    ssetObj.Delete

End Sub

Листинг VBA

Private Function dll_test()
    
    Dim VB6DLL As Object

    Set VB6DLL = ThisDrawing.Application.GetInterfaceObject("TestDllSub.Class1")
    VB6DLL.TestDllSub ThisDrawing
    Set VB6DLL = Nothing

End Function

Заранее спасибо.