[color=Green]'Create an empty list for all drinks.[/color]
[color=Blue] Dim[/color] drinkList [color=Blue]As New[/color] SortedList
[color=Green] 'Add the drinks to the list.[/color]
drinkList.Add("Drink1", [color=Blue]New String[/color]() {"Lemonade", "Orange Juice"})
[color=Green]'...[/color]
[color=Green] 'Create an empty list for the matching drinks.[/color]
[color=Blue] Dim[/color] matchingDrinkList [color=Blue]As New[/color] ArrayList
[color=Blue] For[/color] i [color=Blue]As Integer[/color] = 0 [color=Blue]To[/color] drinkList.Count - 1
[color=Blue]If[/color] drinkList.GetByIndex(i).IndexOf("Lemonade") <> -1 [color=Blue]AndAlso[/color] drinkList.GetByIndex(i).IndexOf("Orange Juice") <> -1 Then
[color=Green]'This drink contains both ingredients so add it to the list of matches.[/color]
matchingDrinkList.Add(drinkList.GetKey(i))
[color=Blue]End If[/color]
[color=Blue] Next[/color]