主题：[求助]复选列表框

老师好！复选列表框如果选中了第一个值后，后面的都不能选中了，代码该怎么写？请指点。谢谢！

ItemCheck事件

 

If e.Checked Then
    For Index As Integer = 1 To e.Sender.Items.Count - 1
        e.Sender.SetItemChecked(Index, False)
    Next
End If

红袍老师，选中第一个后，后面的还可以选中一个哦

If e.Index = 0 andalso e.Checked Then
    For Index As Integer = 1 To e.Sender.Items.Count - 1
        e.Sender.SetItemChecked(Index, False)
    Next
End If

老师好！我有一个表，有A列和B列，A列有A1 A2 A3 A4 A5 A6......选项，B列有与A列对应的B1 B2 B3 B4 B5 ......选项，A列作为复选列表框取值列，B列绑定到文本框，如何实现在复选列表框选择多项时，对应行的B列的值能自动到文本框中。请指点，谢谢！

If e.Index = 0 AndAlso e.Checked OrElse e.sender.GetItemChecked(0) = True Then
    systemReady = False
    For Index As Integer = 1 To e.Sender.Items.Count - 1
        If index = e.Index Then
            e.Checked = False
        Else
            e.Sender.SetItemChecked(Index, False)
        End If
    Next
    systemReady = True
End If

谢谢！