[RESOLVED] Random listbox checked item

[LaVolpe]

You want to randomly select an item only if it is checked? If so, the following is one way....

Private Sub Command1_Click()
    If List1.SelCount Then
        Dim rndItems() As Long
        Dim X As Long, arrayPos As Long
        
        ReDim rndItems(0 To List1.SelCount - 1) ' store listindexes of selected items
        For X = 0 To List1.ListCount - 1
            If List1.Selected(X) Then   ' is item selected/checked?
                rndItems(arrayPos) = X ' store its position
                arrayPos = arrayPos + 1 ' increment for next position in array
                If arrayPos = List1.SelCount Then Exit For ' abort loop if all checked items processed
            End If
        Next
        arrayPos = Int(Rnd * List1.SelCount) ' select a random list item from the array
        MsgBox List1.List(rndItems(arrayPos)) & " randomly selected and is checked"
    End If
End Sub

Note: If you expect hundreds of items, using APIs there is a much faster way to get all selected items. But if only a couple dozen items will exist, this should be fast enough.