CopyMemory crashes VB

Hello!

Does anyone know why CopyMemory function crashes VB?

Here's the code I use:

Code:

---

    hLock = LockResource(hLoad)
    hSize = SizeofResource(hInst, hFind)
   
    ReDim b(0 To lsize) As Byte
    CopyMemory b(0), hLock, hSize
   
    FreeLibrary hInst

---

Because hLock is only 4 bytes in size.