Private Sub Form_Load() Dim i As Long Dim intA As Integer Dim lstsTem As ListSubItems Dim lstTem As ListSubItem For intA = 0 To 200 With lvwList.ListItems Set lstsTem = .Add(, , "tfasdfasasdf", 1, 1).ListSubItems
For i = 1 To 2
Set lstTem = lstsTem.Add(, , "", 3, "this is test")
Dim i As Long
Dim intA As Integer
Dim lstsTem As ListSubItems
Dim lstTem As ListSubItem
For intA = 0 To 200
With lvwList.ListItems
Set lstsTem = .Add(, , "tfasdfasasdf", 1, 1).ListSubItems
For i = 1 To 2
Set lstTem = lstsTem.Add(, , "", 3, "this is test")
Next
End With
Next
End Sub