Sub New() 
        InitializeComponent()
        Me.RadCheckedDropDownList1.ShowCheckAllItems = True
        Me.RadCheckedDropDownList1.AutoSizeItems = True
        For x = 1 To 20
            Dim i As New DescriptionTextCheckedListDataItem
            i.Value = x
            i.Text = x.ToString()
            i.DescriptionText = "abc def ghijkl mnop abc def ghijkl mnop" & x
            Me.RadCheckedDropDownList1.Items.Add(i)
        Next 
    End Sub