Visual Inventory (GSD)

[Da Undead]

ok im havng an error :

Method or data member not found

Highlights:

Code:

.Picture =

Line:

Code:

picInv2.Picture = LoadPicture()

Sub:

Code:

Private Sub PicInv_Click(Index As Integer)
Dim D As Long
Dim e As Long
For D = 0 To MAX_INV - 1
On Error Resume Next
If Index = D Then
    lstInv.Selected(D) = True
    If Item(GetPlayerInvItemNum(MyIndex, lstInv.SelCount + D + e)).Name = "" Then
        picInv2.Picture = LoadPicture()
        IName.Caption = ""
    Else
        If Item(GetPlayerInvItemNum(MyIndex, D + 1)).Type = ITEM_TYPE_CURRENCY Then
            IName.Caption = Trim(Item(GetPlayerInvItemNum(MyIndex, D + 1)).Name) & " (" & GetPlayerInvItemValue(MyIndex, D + 1) & ")"
            Call BitBlt(picInv2.hdc, 0, 0, PIC_X, PIC_Y, picItems.hdc, 0, Item(GetPlayerInvItemNum(MyIndex, D + 1)).Pic * PIC_Y, SRCCOPY)
        Else
                ' Check if this item is being worn
            If GetPlayerWeaponSlot(MyIndex) = D + 1 Or GetPlayerArmorSlot(MyIndex) = D + 1 Or GetPlayerHelmetSlot(MyIndex) = D + 1 Or GetPlayerShieldSlot(MyIndex) = D + 1 Then
                IName.Caption = Trim(Item(GetPlayerInvItemNum(MyIndex, D + 1)).Name) & " (worn)"
                Call BitBlt(picInv2.hdc, 0, 0, PIC_X, PIC_Y, picItems.hdc, 0, Item(GetPlayerInvItemNum(MyIndex, D + 1)).Pic * PIC_Y, SRCCOPY)
            Else
                IName.Caption = Trim(Item(GetPlayerInvItemNum(MyIndex, D + 1)).Name)
                Call BitBlt(picInv2.hdc, 0, 0, PIC_X, PIC_Y, picItems.hdc, 0, Item(GetPlayerInvItemNum(MyIndex, D + 1)).Pic * PIC_Y, SRCCOPY)
            End If
        End If
    End If
End If
Next D
End Sub