>Hi All,
>
>How do I have to declare a textbox objects on a form in order to modify it within a function which gets the object name from evaluating a condition?
>
>As a result I would like to change the background color of an existing object.
>
>

>Private Sub CheckForHolidaySeason(ByVal TodayDate As Date)
>
>        Dim i As Integer = 1
>        Dim wkNumber As Integer = 1
>        Dim dDate As Date = TodayDate
>        Dim objName As New TextBox
>
>        While i <= 52
>            'display current values
>            'MsgBox(i)
>            'MsgBox(wkNumber)
>            'MsgBox(dDate)
>
>'check if dDate falls into the Holiday period (wks: 48,49,50,51,52,53)
>            If DatePart(DateInterval.WeekOfYear, dDate) = 48 _
>                Or DatePart(DateInterval.WeekOfYear, dDate) = 49 _
>                Or DatePart(DateInterval.WeekOfYear, dDate) = 50 _
>                Or DatePart(DateInterval.WeekOfYear, dDate) = 51 _
>                Or DatePart(DateInterval.WeekOfYear, dDate) = 52 _
>                Or DatePart(DateInterval.WeekOfYear, dDate) = 53 Then
>
>                'define object name
>                objName.Name = "txtW" & Trim(wkNumber.ToString)
>                objName.BackColor = Color.Green
>
>            End If
>
>            'increase variables
>            dDate = dDate.AddDays(7)
>            wkNumber += 1
>            i += 1
>
>        End While
>    End Sub
>

>
>Thank you,
>Daniel

http://www.codeproject.com/KB/vb/getControlFromName.aspx ?