Re: VB

[Tmaronson@cs.com]

Tom,

Assuming that you have a List Box named List1 with a single column, then try something like the code below.  I don't guarantee the syntax though.  Good luck.

Tom A

Private Sub RemoveColumn
    Dim entry As Integer
    entry = List1.ListCount

    Do While entry > 0
        entry = entry - 1
        If List1.List(entry) = "0" Then
           List1.Clear
           Exit Do  ' or Exit Sub 
        End If
    Loop 

End Sub