Hi, Krool!
My project Crashes when the program exits from the event Form_KeyDown (Unload Me)
Crashes in IDE and exe-compiled.
If the exit from the program by pressing the cross, all ok.

My project is large, and are also used by other components using subsclassing, but error generate this function
Code:
Public Property Let SubclassEntry(ByVal Entry As Long, ByVal Value As Boolean)
Entry = Entry - 1
Dim EntryPointer As Long
Debug.Assert Entry >= 0 And Entry <= PropVTableCount And VTableHeaderPointer <> 0
If Me.SubclassEntry(Entry + 1) Xor Value Then
    EntryPointer = UnsignedAdd(VTableHeaderPointer, Entry * 4)
    If Value = True Then
        Call CreateSubclass(EntryPointer, vTable(Entry), VTableOld(Entry))
    Else
        Call CreateSubclass(EntryPointer, VTableOld(Entry), 0)
        VTableOld(Entry) = 0
    End If
End If
End Property
Check please, when will be the time
P.S. https://github.com/ADIAProject/DIA