Dim radModels As Telerik.Web.UI.RadComboBox = DirectCast(Me.DateRangeSelector1.FindControl("radModels"), Telerik.Web.UI.RadComboBox) For Each item As Telerik.Web.UI.RadComboBoxItem In radModels.Items Dim chk As CheckBox = DirectCast(item.FindControl("chk1"), CheckBox) If item.Text <> ModelName Then chk.Checked = False Else chk.Checked = True End If Next