Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim nums() As Integer = {5, 7, 2, 3} Dim numQuery = From num In nums Where num > 4 Select num For Each num As Integer In numQuery lstOutput.Items.Add(num) Next End Sub