July's Course of the Month is now available! Enroll to learn HTML5 and prepare for certification. It's free for Premium Members, Team Accounts, and Qualified Experts.
Public Class Form1 Dim TeamNames() As String Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Loads the SBWinners file TeamNames = IO.File.ReadAllLines("SBWinners.txt") End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Displays the Teams ListBox1.Items.Clear() Dim TeamQuery1 = From TeamNames In TeamNames Where TeamNames.StartsWith("B") Select TeamNames For Each TeamNames As String In TeamQuery1 ListBox1.Items.Add(TeamNames) Next ListBox1.Items.Add("") End Sub End Class
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.