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

Namespace myControls

Public Class ShowGreen: Inherits Control

Protected Overrides Sub Render( objTextWriter As HtmlTextWriter )
  Dim strInnerText As String

  If IsLiteralContent
    strInnerText = CType( Controls( 0 ), LiteralControl ).Text
    objTextWriter.AddAttribute( "color", "green" )
    objTextWriter.RenderBeginTag( "font" )
    objTextWriter.RenderBeginTag( "b" )
    objTextWriter.Write( strInnerText )
    objTextWriter.RenderEndTag()
    objTextWriter.RenderEndTag()
  End If
End Sub

End Class

End Namespace