Dim i, j As Integer 
For i = 0 To 2 
lstNested.Items.Add(i) 
For j = 0 To 5 
lstNested.Items.Add(j) 
Next j 
Next i