Ajuda No sistema de vila por comando

por luana1457 Dom 23 Nov 2014, 08:42

No sistema de vila por comando esta dando erro neste codigo
Public Sub DrawPlayerVila(ByVal Index As Long)
If Player(Index).Vila < 0 Then Exit Sub

Dim VilaX As Long
Dim VilaY As Long
Dim VilaColor As Long
Dim VilaName As String

Select Case Player(Index).Vila
Case 1
VilaName = "Konohagakure"
VilaColor = QBColor(BrightRed)
ame = "Sunagakure"
VilaColor = QBColor(Brown)
Case 3 'Iwa
VilaName = "Iwagakure"
VilaColor = QBColor(Brown)
Case 4 'Kiri
VilaName= "Kirigakure"
VilaColor = QBColor(Cyan)
Case 5 'Kumo
VilaName = "Kumogakure"
VilaColor = QBColor(Cyan)
Case Else
VilaName = vbNul Case 2 'Suna
VilaNlString
End Select

' calc pos
VilaX = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(Name)))
If GetPlayerSprite(Index) < 1 Or GetPlayerSprite(Index) > NumCharacters Then
VilaY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - 18
Else
' Determine location for text
VilaY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight / 4) + 9
End If

' Draw name
Call DrawText(TexthDC, VilaX, VilaY, Name, color)

End Sub

este é o topico http://www.mmorpgbrasil.net/t14384-mudando-de-vila-por-comando?highlight=vila mas eu nao intendo pq ta dando o erro http://tinypic.com/view.php?pic=59tzxg&s=8#.VHHkKYvF_fI" /> ajudem-me please