uma linha sim mas não um item... os ícones são arranjados em uma linha.

 

Usa esse código só como teste:

 

Dim flag As Boolean

 

 

Private Sub Comando2_Click()

 

ListView3.ListItems.Clear

flag = Not (flag) 'inverte o flag

If flag Then

    ListView3.View = lvwReport
    ListView3.ColumnHeaders.Clear
   
    ListView3.ColumnHeaders.Add
    ListView3.ColumnHeaders(1).Text = "Coluna1"
    ListView3.ColumnHeaders.Add
    ListView3.ColumnHeaders(2).Text = "Coluna2"
    ListView3.ColumnHeaders.Add
    ListView3.ColumnHeaders(3).Text = "Coluna3"

Else
    ListView3.View = lvwIcon
End If

ListView3.ListItems.Add , , "item1"
ListView3.ListItems.Add , , "item2"
ListView3.ListItems.Add , , "item3"

End Sub

Quer deixar um embaixo do outro sem ser report?

Use como List:

 

    ListView3.View = lvwList

 

será q te ajuda?