Imports System
    Imports System.Web
    Imports System.Web.UI
    Imports System.Web.UI.WebControls

    Public Class segunda : Inherits Page

    Public lbMensaje As Label
    Public tbMensaje As TextBox
    Public btEnviar As Button
    Public lbMensaje1 As Label
    Public lbMensaje2 As Label

    Sub Page_Load (obj as Object, e as EventArgs)
    'lbMensaje.Text = "Bienvenido a ASP.NET!"
    End Sub

    Sub tbMensaje_Change (sender as Object, e as EventArgs)
      lbMensaje1.Text = ""
    Dim i As Integer
    If tbMensaje.Text = "" Then
     lbMensaje1.Text = ""
    lbMensaje2.Text = "(Escribe tu nombre en la caja de texto.<br>Después pulsa Enviar)"
    Else
    lbMensaje2.Text = ""
    For i = 1 To 6
     lbMensaje1.Text += "<b><font face=Verdana color=Navy size=" & i & ">Hola, " & tbMensaje.Text.ToUpper() & "</font></b><br>"
    Next
    For i = 5 To 1 Step -1
     lbMensaje1.Text += "<b><font face=Verdana color=Navy size=" & i & ">Hola, " & tbMensaje.Text.ToUpper() & "</font></b><br>"
    Next
       End If
    End Sub

    End Class