Dim itm As ListItem Set itm = Me.ListView1.ListItems.Add(, , "aaa") itm.SubItems(1) = "bbb"
Dim itm As ListViewItem = Me.ListView1.Items.Add("aaa") itm.SubItems.Add("bbb")