08-07-2007, 09:02 PM
Code:
double click the timer in frmMirage (the one u made) add the following:
Dim Q As Integer
On Error Resume Next
For Q = 0 To MAX_INV - 1
If PicInv(Q).Picture LoadPicture() Then
PicInv(Q).Picture = LoadPicture()
Else
Call BitBlt(PicInv(Q).hdc, 0, 0, PIC_X, PIC_Y, PicItems.hdc, 0,
Item(GetPlayerInvItemNum(MyIndex, lstInv.SelCount + Q)).Pic * PIC_Y,
SRCCOPY)
End If
Next Q