Sub BltMapItemName(ByVal Index As Long)
Dim TextX As Long
Dim TextY As Long

With Item(MapItem(Index).Num)
'Draw name
TextX = MapItem(Index).x * PIC_X + MapItem(Index).X + CLng(PIC_X / 2) - ((Len(Trim$(.Name)) / 2) * 8)
TextY = MapItem(Index).y * PIC_Y + MapItem(Index).Y - CLng(PIC_Y / 2) - 4
DrawText TexthDC, TextX, TextY, Trim$(.Name), vbWhite
End With
End Sub

' Lock the backbuffer so we can draw text and names
TexthDC = DD_BackBuffer.GetDC
For i = 1 To MAX_PLAYERS
If IsPlaying(i) And GetPlayerMap(i) = GetPlayerMap(MyIndex) Then
Call BltPlayerName(i, MapXOffset, MapYOffset)
End If
Next i

'Draw Item Names
For i = LBound(MapItem) To UBound(MapItem)
If MapItem(i).Num > 0 Then
BltMapItemName i
End If
Next i

'Draw Item Names
if VK_LAlt or VK_RAlt = true then
For i = LBound(MapItem) To UBound(MapItem)
If MapItem(i).Num > 0 Then
BltMapItemName i
End If
Next i
end if