Subscript out of Range

[Avalonia]

Want to pass the size variable (used for sprite sizes) wich is a byte to the BltNPC function so i can choose between a few sizes when bliting and blit different if its an other size.

Code:

Dim sizez as Integer
Dim i as Long

        ' Blit out the npcs
        For i = 1 To MAX_MAP_NPCS
            sizez = Npc(MapNpc(i).Num).Size
            Call BltNpc(i, nnum)
        Next i

Code:

sizez = Npc(MapNpc(i).Num).Size ' Subscript out of range error here

returns subscript out of range