■No33602に返信(あささんの記事) > For Each strData As String In str2 > clbTest.SetItemChecked(clbTest.FindStringExact(strData), True) > Next strData > これでうまくいきました。
clbTest.BeginUpdate() Dim trueIndexes = str2.Select(Function(s) clbTest.FindStringExact(s)).ToArray() For i = 0 To clbTest.Items.Count - 1 clbTest.SetItemChecked(i, trueIndexes.Contains(i)) Next clbTest.EndUpdate()