[Feature] Visual Inventory

[Pbcrazy]

alright, i can't figure this one out. i've rewritten the code so that is "should" work, yet of course, it doesn't. When i bring the inventory up, it doesn't blt anything, and then when i click the button again, it gives me a "subscript out of range" error, and then i can see it start to blt.

[code]Public Sub BltInventory()
Dim i As Long
Dim PicNum As Integer
Dim sRECT As DXVBLib.RECT
Dim dRECT As DXVBLib.RECT

If frmMirage.picVisInv.Visible Then
frmMirage.picVisInv.Cls

For i = 1 To MAX_INV
If GetPlayerInvItemNum(MyIndex, i) > 0 And GetPlayerInvItemNum(MyIndex, i)