<DefaultProperty("Text"), ToolboxData("<{0}:WebCustomControl1 runat=server></{0}:WebCustomControl1>")> Public Class WebCustomControl1
Inherits System.Web.UI.WebControls.WebControl
Dim _text As String
<Bindable(True), Category("Appearance"), DefaultValue("")> Property [Text]() As String
Get
Return _text
End Get
Set(ByVal Value As String)
_text = Value
End Set
End Property
Dim _text1 As Control
<Bindable(True), Category("Appearance"), DefaultValue(""), ListBindable(True)> Property [Tdatagrid]() As WebControls.DataGrid
Get
Return _text1
End Get
Set(ByVal Value As WebControls.DataGrid)
_text1 = Value
End Set
End Property
Protected Overrides Sub Render(ByVal output As System.Web.UI.HtmlTextWriter)
output.Write([Text])
End Sub