listview里面成为了复选框，但我希望多次点击复选框后，也只能有一项内容被选中？

自己搞掂
ListView1.ListItems(ListView1.SelectedItem.Index).ForeColor = vbRed
   For k = 1 To ListView1.ListItems(1).ListSubItems.Count
             ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems.Item(k).ForeColor = vbRed
    Next
    For i = 1 To ListView1.ListItems.Count   '用这种不断判断是否多选的方法 去保证选择的唯一性
       If i <> ListView1.SelectedItem.Index And ListView1.ListItems(i).Checked = True Then
          ListView1.ListItems(i).Checked = False
          If ListView1.ListItems(i).ForeColor = vbRed Then
              For k = 1 To ListView1.ListItems(1).ListSubItems.Count
                ListView1.ListItems(i).ListSubItems.Item(k).ForeColor = &H80000008
              Next
          End If
     End If