[Code]

    Public Sub New()
           MyBase.New("p")
    End Sub

    Protected Overrides Sub AddParsedSubObject(ByVal obj As Object)
        If(TypeOf obj Is LiteralControl) Then
        Me._text = DirectCast(obj, LiteralControl).Text
        Else
           MyBase.AddParsedSubObject(obj)
        End If
    End Sub

    Protected Overrides Sub Render(ByVal writer As HtmlTextWriter)
       //writer.RenderBeginTag(HtmlTextWriterTag.Fieldset)
         writer.renderBeginTag(HtmlTextWriterTag.p)//this is what should be?
         If(Me.HasControls) Then
             Me.RenderChildren(writer)
         ElseIf(Not String.IsNullOrEmpty(Me._text)) Then
             writer.Write(Me._text)
         End If
         writer.RenderEndTag()
    End Sub


    Private pText As String = String.Empty
        < Category("Appearance"),
        PersistenceMode(PersistenceMode.InnerDefaultProperty),
        Localizable(True), DefaultValue(""),
      DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden) > _
    Public Overridable Property[Text]() As String
        Get
           If(Me.pText Is Nothing) Then Return String.Empty Else Return Me.pText
        End Get
        Set(ByVal value As String)
             Me.pText = value
        End Set
        End Property
    End Class

    [/Code]