How can I get a subitem "editable" like a default listitem is?

When I run my listview code..

[CODE]

Dim itmX As ListItem

ListView1.ColumnHeaders.Add(1, , , 1600)= "Alias"
ListView1.ColumnHeaders.Add(2, , , 1695) = "Address"

Set itmX = ListView1.ListItems.Add()

itmX.Text = "Swing Spool"
itmX.SubItems(1) = 5607

[END CODE]

I can edit the "swing spool" text but not the 5607 number, is there any way I can edit both?