GetPlayerClass(MyIndex) in a label.

[El_Dindonnier]

Thanks you, but don't work.

Look my sub :

Code:

Sub BltPlayerName(ByVal Index As Long)
Dim TextX As Long
Dim TextY As Long
Dim Color As Long
    
Select Case GetPlayerClass(Index)
Case 0
Color = QBColor(Cyan)
Case 1
Color = QBColor(Green)
Case 2
Color = QBColor(Yellow)
Case 3
Color = QBColor(Black)
End Select
    
    ' Draw name
    TextX = GetPlayerX(Index) * PIC_X + Player(Index).XOffset + Int(PIC_X / 2) - ((Len(GetPlayerName(Index)) / 2) * 8)
    TextY = GetPlayerY(Index) * PIC_Y + Player(Index).YOffset - Int(PIC_Y / 2) - 4
    Call DrawText(TexthDC, TextX, TextY, GetPlayerName(Index), Color)
End Sub

The color of the playername is a color class.

Can I help me ? please

Thanks you.