'this is the principal of the matter
'this will load every second record
'you just have to adapt your code


Private Sub Command1_Click()

Dim x As Integer, i As Integer
x = 1
For i = 1 To 11
Combo1.AddItem i
If i = x Then
List1.AddItem i
x = x + 2
End If
Next

End Sub

Ie..
open file
i = 1
x = 1
while not eof(#1)
if i = x then
additem yourstring from your file
x = x + 2
etc...will give thing,thing1,thing2..as you
are incrementing by 2