ListView Control (simple Q)

If I have two columns, how can I add something to the listview in the following way:

Code:

---

  COLUMN1          COLUMN2 '//<---------Column Headers
    TEXT1            TEXT2
    TEXT3            TEXT4

---

HYKWIM (I use the report style of the ListView)

How about:

Code:

---

    Dim lstItem As ListItem
   
    With ListView1
        .ColumnHeaders.Add , "Column1", "Column1"
        .ColumnHeaders.Add , "Column2", "Column2"
        Set lstItem = .ListItems.Add(1, "Text1", "Text1")
        lstItem.SubItems(.ColumnHeaders("Column2").SubItemIndex) = "Text2"
        Set lstItem = .ListItems.Add(2, "Text3", "Text3")
        lstItem.SubItems(.ColumnHeaders("Column2").SubItemIndex) = "Text4"
       
        Set lstItem = Nothing
    End With

---

Thanks QWERTY. It works fine for adding new items. But there is a problem. I can't select anything what is under the column2. I can select any item from column1, but when I click on "Text2" or "Text4" it doesn't get selected. How to change it? Thanks in advance.