Public Class Bottle 
"internalProperties"
Public Property Brand() As String
Public Property Name() As String
Public Property Category() As String
Public Property Size() As Decimal
Public Sub New( _
End Sub
End Class

Dim Cabinet As List(Of Bottle) = _ 
"New List(Of Bottle)
Cabinet.Add(New Bottle( _
"Castle Creek", _
"Uintah Blanc", _
"Wine", 750))
Cabinet.Add(New Bottle( _
"Zion Canyon Brewing Company", _
"Springdale Amber Ale", _
"Beer", 355))
Cabinet.Add(New Bottle( _
"Spanish Valley Vineyards", _
"Syrah", _
"Wine", 750))
Cabinet.Add(New Bottle( _
"Wasatch Beers", _
"Polygamy Porter", _
"Beer", 355))
Cabinet.Add(New Bottle( _
"Squatters Beer", _
"Provo Girl Pilsner", _
"Beer", 355))

Dim instance As List 
Dim action As Action(Of T)
instance.ForEach(action)

Sub displayBottle(ByVal b As Bottle) 
Console.WriteLine(b.Brand & " - " & b.Name)

End Sub

Cabinet.ForEach(AddressOf displayBottle)

Dim instance As List 
Dim match As Predicate(Of T)
Dim returnValue As List(Of T)
returnValue = instance.FindAll(match)

Function findBeer(ByVal b As Bottle) _ 
As Boolean
If (b.Category = "Beer") Then
Return True
Else
Return False
End If
End Function

Dim sublist As List(Of Bottle) 
sublist = Cabinet.FindAll(AddressOf findBeer)
For Each result As Bottle In sublist
Console.WriteLine(result.Brand & " - " & result.Name)
Next

1. Sort()
2. Sort(Icomparer(T)
3. Sort(Comparison(T)
4. Sort(Int32,Int32,Icomparer(T)

Private Shared Function sortCabinet( _ 
ByVal x As Bottle, ByVal y As Bottle) As Integer
Return x.Category.CompareTo(y.Category)
End Function

 Cabinet.Sort(AddressOf sortCabinet) 
For Each result As Bottle In Cabinet
Console.WriteLine(result.Brand & " - " & result.Name)
Next