Try this one
Dim objLab As New ArrayList
objLab.Add("Abc")
objLab.Add("Telkom")
objLab.Add("StackOverFlow")
Dim labQuery = From item In objLab
Where item.Equals("Telkom")
Select item
Console.WriteLine("Results :")
For Each s In labQuery
Console.WriteLine(s)
Next
Console.ReadLine()
… OR
Dim objLab As New ArrayList From {
New Labaratory(3, "Abc"),
New Labaratory(2, "Telkom"),
New Labaratory(3, "StackOverFlow")
}
Dim labQuery = From item As Labaratory In objLab
Where item.Name.Equals("Telkom")
Select item
Console.WriteLine("Results :")
For Each s In labQuery
Console.WriteLine($"{s.Id} {s.Name}")
Next
Console.ReadLine()
You can define the class Labaratory as shown below
Public Class Labaratory
Public Sub New(i As Integer, n As String)
Id = i
Name = n
End Sub
Public Property Id As Integer
Public Property Name As String
End Class