barrita de vida debajo del pj

Buscan en el Sub RenderScreen:
If TempChar.Nombre <> "" Then

Y arriba ponen: If UCase$(TempChar.Nombre) = UCase$(Username) And UserMinHP > 0 Then
Dim MaxLargo As Byte
MaxLargo = 75
BackBufferSurface.SetForeColor 0
BackBufferSurface.SetFillColor vbBlack
Call BackBufferSurface.DrawBox(iPPx - (MaxLargo / 3), iPPy + 50, iPPx + (MaxLargo / 1.5), iPPy + 55)
BackBufferSurface.SetForeColor vbBlack
BackBufferSurface.SetFillColor vbRed
Call BackBufferSurface.DrawBox(iPPx - (MaxLargo / 3), iPPy + 50, (iPPx - (MaxLargo / 3)) + ((UserMinHP / 100) / (UserMaxHP / 100)) * MaxLargo, iPPy + 55)
End If


Edit 3/11 , 21:36pm : Agregada variable para editar el largo

y la Fuente?