removeitem i listbox

Private Sub Command1_Click()

Do Until List1.ListIndex >= List1.ListCount - 1
i = i + 1

List1.ListIndex = i
ret = List1.Text
If ret = "4" Then
    List1.RemoveItem i
    Exit Sub
End If
   


Loop
End Sub

Private Sub Form_Load()
For i = 1 To 10
List1.AddItem i
Next
End Sub


//akj

kanon takker... :D