vb6循环遍历数组

Question

我有一个简单的循环，我会查看一堆项目，如果有相应的值（子项），则标记它们已完成。

For x = 0 To UBound(strArray)
    For Each itmx In lvwThings.ListItems
        If strArray(x) = itmx.SubItems(1) Then
            itmx.Selected = True
        End If
    Next itmx
Next x

我的问题是，如果我有3个值，比如1,2,3只会选择第三个。如何更改它以便选择所有值？