Why doesn't my code work?

[kjelvis]

Hi

this is the code I hoped would remove
blanck list items.

VB doesn't like the line
List1.RemoveItem x
but I can't see anything wrong
with it

The code.


Private Sub Command5_Click()

For x = 0 To List1.ListCount

If List1.List(x) = "" Then
List1.RemoveItem x
End If

Next x
List1.Refresh

End Sub

Thanks for your time

Chris Davidsen