Do Until Combo1.ListCount =  0 
....
Loop

Combo1.AddItem ("первая")
Combo1.AddItem ("вторая")
k =  0 
For i =  0  To Combo1.ListCount -  1 
k = k +  1 
MsgBox (Str(k))
Next i
End Sub

Private Sub Command2_Click()
Combo1.RemoveItem Combo1.ListIndex
End Sub

b = Combo1.List(Combo1.ListIndex)
MsgBox (b)

a = Combo1.ListIndex
For i =  0  To Combo1.ListCount -  1 
a = a +  1 
b = Combo1.List(a)
MsgBox (b)
Next
End Sub

c =  0 
d =  1000 
Do Until Data1.Recordset.EOF
a = Str(Data1.Recordset("Âûðàæåíèå1").Value)
e = Data1.Recordset("marka_auto").Value
b = c
z = d
List1.AddItem (a)
List2.AddItem (e)
c = c +  300 
d = (a /  2000000 )
MsgBox (Str(d))
Picture1.PSet (c, d)
Picture1.Print Data1.Recordset("marka_auto").Value
Picture1.Line (b, z)-(c, d)
b = c
z = d
c = c +  300 
d = (a /  2000000 )
Picture1.Line (b, z)-(c, d)
Data1.Recordset.MoveNext
Loop