Dim Stream As New StreamReader("D:\sw.txt", System.Text.Encoding.Default)
        While Stream.Peek() <> -1
            CheckedListBox1.Items.Add(Stream.ReadLine)
        End While
 
        Stream.Close()
        CheckedListBox1.SelectedIndex = 0