A.Fori=OTOListI.ListCount?1 … Next
B.Fori=0 To List1.Count?1 … Next
C.Fori=1 To List1.ListCount … Next
D.For i=1 To List1.Count … Next