Visual Basic

Code so far:

<br />
Public Class ListReportParametersControl<br />
    Inherits System.Web.UI.UserControl<br />
<br />
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        Dim intCounter1 As Integer<br />
        Dim strParamValue As String<br />
        Dim arrSessionParams() As String = Session("ReportParams").ToString.Split(",")<br />
        Dim arrTempTypeNValue() As String<br />
<br />
        For intCounter1 = 0 To UBound(arrSessionParams)<br />
            arrTempTypeNValue = arrSessionParams(intCounter1).ToString.Split(":")<br />
            Select Case arrTempTypeNValue(0)<br />
                Case "CALENDAR"<br />
                    SetCalendar(arrTempTypeNValue(1))<br />
                    ReDim Preserve arrControls(intCounter1)<br />
                    arrControls(intCounter1) = arrTempTypeNValue(1).ToString<br />
            End Select<br />
        Next<br />
    End Sub<br />
<br />
<br />
    Public Sub SetCalendar(ByVal CalendarID As String)<br />
        Dim lblCalendar As New Label<br />
        lblCalendar.Font.Name = "Verdana"<br />
        lblCalendar.Font.Size = FontUnit.Parse("10")<br />
        lblCalendar.ID = "Label" & CalendarID<br />
        lblCalendar.Text = CalendarID<br />
<br />
        Dim myCalendar As New Calendar<br />
        myCalendar.Font.Name = "Verdana"<br />
        myCalendar.Font.Size = FontUnit.Parse("10")<br />
        myCalendar.ID = CalendarID<br />
        myCalendar.EnableViewState = True<br />
        myCalendar.TodaysDate = System.DateTime.Today<br />
        myCalendar.VisibleDate = System.DateTime.Today<br />
        myCalendar.TitleFormat = TitleFormat.MonthYear<br />
        myCalendar.SelectionMode = CalendarSelectionMode.Day<br />
        myCalendar.NextPrevFormat = NextPrevFormat.CustomText<br />
        myCalendar.TodayDayStyle.BackColor = System.Drawing.Color.Red<br />
        myCalendar.OtherMonthDayStyle.BackColor = System.Drawing.Color.FromName("LightGray")<br />
        AddHandler myCalendar.SelectionChanged, AddressOf myCalendarSelectionChanged<br />
<br />
        Dim txtCalendar As New TextBox<br />
        txtCalendar.Font.Name = "Verdana"<br />
        txtCalendar.Font.Size = FontUnit.Parse("10")<br />
        txtCalendar.ID = "Textbox" & CalendarID<br />
        'txtCalendar.Text = myCalendar.UniqueID.ToString<br />
<br />
        Me.Controls.Add(lblCalendar)<br />
        Me.Controls.Add(myCalendar)<br />
        Me.Controls.Add(txtCalendar)<br />
    End Sub<br />
<br />
    Public Sub myCalendarSelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs)<br />
        'Does nothing, yet.<br />
        Dim strSenderID As String<br />
        Dim strSenderType As String<br />
<br />
        strSenderType = UCase(sender.GetType.Name)<br />
        strSenderID = sender.ID<br />
<br />
        Select Case strSenderType<br />
            Case "CALENDAR"<br />
<br />
        End Select<br />
<br />
    End Sub<br />
<br />
End Class<br />

'Declare globally
dim hash as new hashtable

'In the SetCalander method
hash.add(myCalendar, txtCalendar)

'In the selectionchange event
'This will give you a reference to the appropriate textbox
dim txt as textbox = hash(sender)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'This list will contain our textboxes
    Dim itemList As New List(Of TextBox)
    'Add each textbox to the list
    itemList.AddRange(New TextBox() { _
        txt1, _
        txt2, _
        txt3, _
        txt4, _
        txt5, _
        txt6})

    Dim rnd As New Random   'Random number generator
    For i As Int16 = 0 To lstListbox.Items.Count - 1
        'Pick a random textbox
        Dim index As Integer = rnd.Next(0, itemList.Count)
        itemList(index).Text = lstListbox.Items(i).ToString
        'Remove the textbox so we can't pick it again
        itemList.RemoveAt(index)
    Next
End Sub