在listview中删除选中行的有关问题

在listview中删除选中行的问题
第一：用以下代码实现，但是不能删除第一行的数据

VB code

Private Sub Cmd_Del_Click()On Error Resume NextMsgBox lvSet.SelectedItem.IndexIf lvSet.SelectedItem.Index <> 1 Then    lvSet.ListItems.Remove (lvSet.SelectedItem.Index)End IfEnd Sub

第二：用以下代码实现，发现第一次选都没选就发现lvSet.SelectedItem.Selected是true；第二次选就为false了。求解释

VB code

Private Sub Cmd_Del_Click()On Error Resume Next'lvSet.SelectedItem.Selected = FalseMsgBox lvSet.SelectedItem.SelectedIf lvSet.SelectedItem.Selected = True Then    lvSet.ListItems.Remove (lvSet.SelectedItem.Index)End IfEnd Sub

谢谢大侠

[解决办法]
第一个方法是对的。不过删除以后应该设置一个现存的条目为选中，否则没有办法连续删除，除非用户再选中一次。