in exe ,code like this,but in activex dll,why lModulesCount=0?

Code:
    GetMem4 ByVal lpVBHeader + &H30, pOldProjInfo 'vb6 ide Can't Run
    GetMem4 ByVal pOldProjInfo + &H4, pOldObjTable
    GetMem4 ByVal pOldObjTable + &H30, pOldDesc
    GetMem2 ByVal pOldObjTable + &H2A, lModulesCount

hHeap = GetProcessHeap()
 NewVBHeader_Heap = HeapAlloc(hHeap, 0, lSizeOfHeaders)
GetMem4 1&, ByVal NewVBHeader_Heap + &H3C