Private Sub HandleUpdateMana()
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modification: 05/17/06
'
'***************************************************
'Check packet is complete
If incomingData.length < 3 Then
Err.Raise incomingData.NotEnoughDataErrCode
Exit Sub
End If
'Remove packet ID
Call incomingData.ReadByte
'Get data and update form
UserMinMAN = incomingData.ReadInteger()
frmMain.lblMana = UserMinMAN & "/" & UserMaxMAN
Dim bWidth As Byte
If UserMaxMAN > 0 Then _
bWidth = (((UserMinMAN / 100) / (UserMaxMAN / 100)) * 110)
frmMain.shpMana.Width = 110 - bWidth
frmMain.shpMana.Left = 664 + (110 - frmMain.shpMana.Width)
frmMain.shpMana.Visible = (bWidth <> 110)
End Sub
Lo tengo asi ; pero ahora no las veo directamente
