' Determine location for text
    TextX = GetPlayerX(Index) * PIC_X + Player(Index).XOffset + (PIC_X \ 2) - ((Len(GetPlayerName(Index)) / 2) * 8)
    TextY = GetPlayerY(Index) * PIC_Y + Player(Index).YOffset - (PIC_Y \ 2) - 4

If TextY <= 0 Then TextY = 0
    If TextX <= 0 Then TextX = 0
    If TextX + (Len(GetPlayerName(Index)) * 8) >= DDSD_BackBuffer.lWidth Then TextX = DDSD_BackBuffer.lWidth - (Len(GetPlayerName(Index)) * 8)

    'Draw name
TextX = MapNpc(Index).X * PIC_X + MapNpc(Index).XOffset + CLng(PIC_X / 2) - ((Len(Trim$(.Name)) / 2) * 8)
TextY = MapNpc(Index).Y * PIC_Y + MapNpc(Index).YOffset - CLng(PIC_Y / 2) - 4

If TextY <= 0 Then TextY = 0
    If TextX <= 0 Then TextX = 0
    If TextX + (Len(MapNpc(Index)) * 8) >= DDSD_BackBuffer.lWidth Then TextX = DDSD_BackBuffer.lWidth - (Len(MapNpc(Index)) * 8)

DrawText TexthDC, TextX, TextY, Trim$(.Name), vbWhite