Is there any particular reason you are using API, as this will do
VB Code:
  1. For i = 0 To List1.ListCount - 1 Step 2 'select every other element

  2.     List1.Selected(i) = True

  3. Next i