Multiple Selection (1 Viewer)

[John liem]

I have found an example of database which I can use in my application, but what I want to know is how I can de-select my selections.
In this example, I am using the "Form3" example and want to de-select the selected items in "List10" after the button "Add items" has been pushed. Thanks.

 

[ghudson]

Private Sub bDeselectAll_Click()
    
    Dim i As Integer
    Dim intListCount As Integer
        
    intListCount = YourListBoxNameHere.ListCount - 1
        
    For i = 0 To intListCount
    YourListBoxNameHere.Selected(i) = False
    Next
    
End Sub

Private Sub bSelectAll_Click()

    Dim i As Integer
    Dim intListCount As Integer
    
    intListCount = YourListBoxNameHere.ListCount - 1
    
    For i = 0 To intListCount
    YourListBoxNameHere.Selected(i) = True
    Next

End Sub

 

[John liem]

Thanks GHudson, it works as I want, great help!!!