Hello Richard:

After trying for a while and referring to our valuable tutorial, i tried the following code and it worked perfectly.

Private Sub Command2_Click()
Dim I
For I = 0 To List0.ListCount
Me.List0.Selected(I) = True
Next I


End Sub

I hope the above is the right way to do or if there is another way you would recommend.

---

Reply from Richard Rost:

You got it perfect. Good job.