For j = 0 To MaterialLambrekenaListBox.ListCount - 1 MaterialLambrekenaListBox.Selected(j) = False Next j