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

    Public Class primera : Inherits Page

    Public tbMensaje As TextBox
    Public btEnviar As Button
    Public lbMensaje1 As Label
    Public lbMensaje2 As Label
    Public lbMensaje3 As Label
    Public Image1 As Object

    Sub Page_Load (obj as Object, e as EventArgs)
    lbMensaje1.Text = "Bienvenido a ASP.NET"
    Image1.Visible = False
    End Sub

    Sub tbMensaje_Change (sender as Object, e as EventArgs)
    If tbMensaje.Text = "" Then
    lbMensaje2.Text = ""
    lbMensaje3.Text = "(Escribe tu nombre en la caja de texto)"
    Else
     lbMensaje3.Text = ""
     lbMensaje2.Text = "Hola, " + tbMensaje.Text.ToUpper()
    Image1.Visible = True
    End If
    End Sub

    End Class