Function to Select Multiple Items in the Listbox

Function SelectItems(Obj, items)
    Dim idx, item
    If (StrComp(obj.GetROProperty("type"), "select-multiple", 1) = 0) Then
        For Each item In items
            obj.Select(item)
        Next
    Else
        obj.Select(items(0))
    End If
End Function