VB Code:
Private listMainItem As String
Private Sub Form_Load()
With ListView1
.ListItems.Add 1, , "item 1"
.ListItems.Add 2, , "item 2"
.ListItems(1).ListSubItems.Add , , "subitem 1"
.ListItems(2).ListSubItems.Add , , "subitem 2"
End With
End Sub
Private Sub ListView1_AfterLabelEdit(Cancel As Integer, NewString As String)
ListView1.SelectedItem.ListSubItems(1).Text = NewString '///make the subitem become the edited item.
NewString = listMainItem '/// make the main item back to it's original text.
End Sub
Private Sub ListView1_BeforeLabelEdit(Cancel As Integer)
listMainItem = ListView1.SelectedItem.Text '///asign exsisting main item to a string.
End Sub