<%@ Page Language="VB" %>
<%@ Register TagPrefix="uc1" TagName="header" Src="Control.ascx" %>
User Controls
Private Sub Page_Load(sender As Object, e As System.EventArgs)
header1.Author = "Snoopy"
FooterLabel.Text = "Rendered " + header1.RenderDate
End Sub 'Page_Load
It was a dark and stormy night.
File: Control.ascx
<%@ Control Language="vb" %>
Private _title As String
Private _author As String
Private _renderDate As DateTime = System.DateTime.Now
Public Property Title() As String
Get
Return _title
End Get
Set
_title = value
End Set
End Property
Public Property Author() As String
Get
Return _author
End Get
Set
_author = value
End Set
End Property
Public ReadOnly Property RenderDate() As DateTime
Get
Return _renderDate
End Get
End Property
Private Sub Page_Load(sender As Object, e As EventArgs)
TitleLabel.Text = Title
AuthorLabel.Text = Author
End Sub