[RESOLVED] check box to remove items from list?

[stevevb6]

http://hx.pri.ee/dsrc/dice.php
this is actually very close to the program i want to make. It is for a game that i play, some guy wanted it on the forum of the site and i figured it is a good way to get some vb6 skills.

[stevevb6]

i got this one on my own. i used this code.

Dim s As Integer
 
For s = 0 To List1.ListCount - 1
If List1.Selected(s) Then
List3.AddItem List1.List(s)
End If
Next

And then

Dim i As Integer
    
    Randomize
    i = Rnd(List1.ListCount) * List3.ListCount
    Label4.Caption = List3.List(i)

Ironed out a few wrinckles, and all is well. Thanks for all your help!