Private Sub ListView_单选(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckedEventArgs) Handles ListView1.ItemChecked
    '读取 checkbox 的位置
    '单选checkbox 不能复选
    If CheckBox1.Checked = True Then
      If e.Item.Checked = True Then
        For i As Integer = (ListView1.CheckedItems.Count - 1) To 0 Step (-1)
          If Not ListView1.CheckedItems.Item(i).Equals(e.Item) Then
            ListView1.CheckedItems.Item(i).Checked = False
          End If
        Next
      End If

End Sub