Code Tag Now Double Spaces

Example:

Code:

---

    Dim intIndex As Integer
   
    For intIndex = List1.ListCount - 1 To 0 Step -1
        If List1.Selected(intIndex) Then
            List1.RemoveItem (intIndex)
      End If
    Next

---