Dim dirs As String() = Directory.GetFiles("D:\", "*.txt")
        Console.WriteLine("The number of files starting with c is {0}.", _
          dirs.Length)
        Dim dir As String
        For Each dir In dirs
            Dim Stream As New IO.StreamReader(dir, System.Text.Encoding.Default)
            Dim line As String
            While Stream.Peek() <> -1
                line = Stream.ReadLine
                If line.StartsWith("[") AndAlso line.EndsWith("]") Then
                    CheckedListBox1.Items.Add(line)
                End If
            End While
            Stream.Close()
            CheckedListBox1.SelectedIndex = 0
        Next