主题：下拉窗口再打开时，复选框还能再根据Dropbox内容恢复勾选吗？

展开的时候，

Dim ary() As String = e.Form.DropDownBox.Value.Split(",")
Dim l As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
For i As Integer = 0 To l.Items.Count - 1
    If array.indexof(ary, "'" & l.Items(i) & "'") >= 0 Then
        l.SetItemChecked(i, True)
    End If
Next