Dopo aver settato la proprietà View del ListView1 in 3-lvwReport.

codice:
Private Sub Form_Load()
Dim clmX As ColumnHeader
Dim itmx As ListItem

Set clmX = ListView1.ColumnHeaders.Add(, , , 1290)
  clmX.Text = "Colonna 1"
  
Set clmX = ListView1.ColumnHeaders.Add(, , , 1290)
  clmX.Text = "Colonna 2"
  
Set itmx = ListView1.ListItems.Add()

itmx.Text = "Text"
itmx.SubItems(1) = "SubItem"
End Sub
Ciao !