[VB6]Compiling error!

[Golf]

When I try to compile application I got error!

```
Engine_BltFast DDS_Item(itempic), rec, rec_pos, frmMain.picTempInv, False

```

[abhi2011]

Tell us the error and we'll be able to help.

[Golf]

Error sub:


Compiling error:


[Golf]

Fixed!

I  deleted one part of code and I dont know why but I fixed it by downloading original source copying whole sub and replacing it in my source.

```
Public Sub BltInventoryItem(ByVal x As Long, ByVal Y As Long)
Dim rec As RECT, rec_pos As RECT
Dim itemnum As Long, itempic As Long

' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

itemnum = GetPlayerInvItemNum(MyIndex, DragInvSlotNum)

If itemnum > 0 And itemnum <= MAX_ITEMS Then
itempic = Item(itemnum).Pic

If itempic = 0 Then Exit Sub

With rec
.top = 0
.Bottom = .top + PIC_Y
.Left = DDSD_Item(itempic).lWidth / 2
.Right = .Left + PIC_X
End With

With rec_pos
.top = 2
.Bottom = .top + PIC_Y
.Left = 2
.Right = .Left + PIC_X
End With

' Load item if not loaded, and reset timer
ItemTimer(itempic) = GetTickCount + SurfaceTimerMax

If DDS_Item(itempic) Is Nothing Then
Call InitDDSurf("Items\" & itempic, DDSD_Item(itempic), DDS_Item(itempic))
End If

Engine_BltToDC DDS_Item(itempic), rec, rec_pos, frmMain.picTempInv, False

With frmMain.picTempInv
.top = Y
.Left = x
.Visible = True
.ZOrder (0)
End With
End If

' Error handler
Exit Sub
errorhandler:
HandleError "BltInventoryItem", "modDirectDraw7", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub

```