Bueno, aqui se halla el code mas bobo jamas visto

screen :

[Solo Miembros registrados ven los enlaces. ]

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

Agregada variable para editar el largo

Fuente : Gs-zone