Barra de exp

TODO EN EL CLIENTE
he visto k hay muxa gente k lo habia pedido pero no se a hecho este code o yo no lo encontrao por eso lo echo.
empezamos poniendo un shape llamado ExpShp
Buscan todos los sitios donde ponga:



frmmain.exp.caption = "Exp: " & UserExp & "/" & UserPasarNivel




y debajo agregan


frmMain.ExpShp.Width = (((UserExp / 100) / (UserPasarNivel / 100)) * 120)




*120 el el ancho k le pongais al shape

Bueno empiezo con lo k he mejorado:
colocan encima del ExpShp los label exp y lblporLvl
el label exp le ponen la propiedad viseble = false

buscan en todos los sitios donde ponga:


frmmain.exp.caption = "Exp: " & UserExp & "/" & UserPasarNivel


y borran
"Exp: " &

Despues buscan



Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MouseX = X
MouseY = Y

End Sub



antes del end sub agregan esto

exp.Visible = False
lblPorcLvl.Visible = True

al final del frmmain agregan esto



Private Sub lblPorcLvl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MouseX = X
MouseY = Y
lblPorcLvl.Visible = False
exp.Visible = True
End Sub


Espero qe les sirva