07-04-2009, 04:26 AM
Im having a problem with the DDS_Item, Im getting a type mismatch before it loads the game windows.
[code]Public Sub BltInventory()
Dim i As Long, PicNum As Long
Dim rec As DxVBLib.RECT
Dim rec_pos As DxVBLib.RECT
If frmMirage.picInvList.Visible Then
frmMirage.picInvList.Cls
For i = 1 To MAX_INV
If GetPlayerInvItemNum(MyIndex, i) > 0 And GetPlayerInvItemNum(MyIndex, i)
[code]Public Sub BltInventory()
Dim i As Long, PicNum As Long
Dim rec As DxVBLib.RECT
Dim rec_pos As DxVBLib.RECT
If frmMirage.picInvList.Visible Then
frmMirage.picInvList.Cls
For i = 1 To MAX_INV
If GetPlayerInvItemNum(MyIndex, i) > 0 And GetPlayerInvItemNum(MyIndex, i)