Partial Class form_controls_uTextBox
    Inherits System.Web.UI.UserControl
 
#Region "Privates"
    Private int_columns As Integer = 0
    Private int_max_length As Integer = 0
    Private str_textmode As String = "SingleLine"
    Private str_label As String = ""
#End Region
 
#Region "Event Handlers"
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If int_columns > 0 Then txt_field.Columns = int_columns
        If int_max_length > 0 Then txt_field.MaxLength = int_max_length
        If str_textmode <> "SingleLine" Then txt_field.TextMode = str_textmode
    End Sub
#End Region
 
#Region "Properties"
    Public Property Columns() As Integer
        Get
            Return int_columns
        End Get
        Set(ByVal value As Integer)
            int_columns = value
        End Set
    End Property
    Public Property MaxLength() As Integer
        Get
            Return int_max_length
        End Get
        Set(ByVal value As Integer)
            int_max_length = value
        End Set
    End Property
    Public Property TextMode() As String
        Get
            Return str_textmode
        End Get
        Set(ByVal value As String)
            If value = "MultiLine" Or value = "Password" Then
                str_textmode = value
            End If
        End Set
    End Property
    Public Property Label() As String
        Get
            Return str_label
        End Get
        Set(ByVal value As String)
            str_label = value
        End Set
    End Property
#End Region
 
#Region "Readonly Properties"
    Public ReadOnly Property Text() As String
        Get
            Return txt_field.Text
        End Get
    End Property
#End Region
End Class

<tr><td>Test TextBox</td><td><uc1:uTextBox ID="uTextBox1" runat="server" Columns="100" Label="Test TextBox" runat="server" /></td></tr>

ListItems="Happy Hour, Money Tuesdays, Thursdays, Fridays Are the Best"
 
Function GetItems(ByVal li As String) As String
  Dim ListItems() As String = li.split(",")
 
  For Each Item in ListItems
    GetItems &= "<option value=""" & Trim(Item) & """>" & Trim(Item) & "</option>"
  Next
End Function

ListItems = "haphour: HappyHour, money: Money Tuesdays, thu: Thursdays, fribest: Fridays Are the Best"
 
Function GetItems(ByVal li As String) As String
  Dim ListItems() As String = li.split(",")
  Dim ListItemsSub() As String
 
  For Each Item In ListItems
    ListItemsSub() = Item.split(":")
    GetItems &= "<option value=""" & Trim(ListItemsSub(0)) & """>" & Trim(ListItemsSub(1)) & "</option>"
  Next
End Function

'Bind datalist:
TryConn()
SetCmd(....) 'handles sql and ALL parameters.
TryReader()
AssignReader(datalistname)
CloseReader()
CloseConn()
 
Finalize() ' does all closing and everything just in case I forget a close reader or conn command.
 
'Commence large update or insert:
TryConn()
SetCmd(....)
ExecNonQuery()
CloseConn()