i got this one on my own. i used this code.And thenVB Code:
Dim s As Integer For s = 0 To List1.ListCount - 1 If List1.Selected(s) Then List3.AddItem List1.List(s) End If NextIroned out a few wrinckles, and all is well. Thanks for all your help!VB Code:
Dim i As Integer Randomize i = Rnd(List1.ListCount) * List3.ListCount Label4.Caption = List3.List(i)




Reply With Quote