[RESOLVED] check box to remove items from list?

[MartinLiss]

Try something like this

Option Explict
mstrSave As String
 
 
If chkboxuf1.Value = True Then
    Dim lngIndex As Long
    
    For lngIndex = List1.ListCount - 1 To 0 Step -1
        If List1.List(lngIndex) = "AAA" Then
            [HL="#FFFF80"]mstrSave = List1.List(lngIndex).List[/HL]
            List1.RemoveItem lngIndex
        End If
    Next

And then in the Click sub

List1.AddItem mstrSave

[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!