[wlsnch]

Hola Rekker:

Muchas gracias por la edición para entender los while, así creo lo van a entender todo el mundo. Gracias.


Si vas a usar el Cint, hay que controlar los errores, usas la instrucción Try...Catch...End Try

Aquí te muestro el código

Código PHP:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Label1.Text = CInt(TextBox1.Text)
        Catch ex As Exception
            MsgBox("Se ha producido el siguiente error: " + ex.Message, _
                       MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
            MsgBox("Debe digitar numeros enteros")
        End Try
    End Sub
End Class 


Saludos,