J Jeff Wilkin Dec 10, 2003 #3 Private Sub cmdUnselect_Click() dim varItem as Variant For Each varItem in Me.MyList.ItemsSelected Me.MyList.Selected(varItem) = False Next varItem End Sub Jeff
Private Sub cmdUnselect_Click() dim varItem as Variant For Each varItem in Me.MyList.ItemsSelected Me.MyList.Selected(varItem) = False Next varItem End Sub Jeff