Bueno el detalle es que tengo este codigo:
Código:
El error es que cuando ya el progressbar tiene un value digamos de 30 y toca restarle 50 me manda error de que no se puede restar o algo parecido. Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim numeroAleatorio As New Random() Dim valorAleatorio As Integer = numeroAleatorio.Next(0, 5) If valorAleatorio = 0 Then MsgBox("No te bajaron Sangre... puuf que suerte", , "Suertudo") ElseIf valorAleatorio = 1 Then hpbar.Value -= 10 lhpp.Text = hpbar.Value & "%" ElseIf valorAleatorio = 2 Then hpbar.Value -= 20 lhpp.Text = hpbar.Value & "%" ElseIf valorAleatorio = 3 Then hpbar.Value -= 30 lhpp.Text = hpbar.Value & "%" ElseIf valorAleatorio = 4 Then hpbar.Value -= 40 lhpp.Text = hpbar.Value & "%" ElseIf valorAleatorio = 5 Then hpbar.Value -= 50 lhpp.Text = hpbar.Value & "%" End If End Sub
En si este error me manda:
http://edno82mx.com/imagenes/error.png
Como puedo evitar que eso pase?
Gracias por su ayuda de antemano.