看看:
Dim iC As Integer
Dim B As BooleanPrivate Sub Form_Load()
    Dim itmX As ListItem    For i = 1 To 6
        Set itmX = ListView1.ListItems.Add(, , "NotMe" + Str(i))  ' Author.
    Next i
End SubPrivate Sub ListView1_AfterLabelEdit(Cancel As Integer, NewString As String)
    If Len(NewString) < 2 Then
        MsgBox ("False")
        B = False
    Else
        iC = -1
        B = True
    End If
End SubPrivate Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    If ((iC > 0) And (Not B)) Then
        B = True
        Item.Selected = False
        ListView1.ListItems(iC).Selected = True
        ListView1.StartLabelEdit
    Else
        iC = ListView1.SelectedItem.Index
    End If
End Sub利用了两个变量判断是否需要修改,还需要改进,你可以看一下思路。