Dim Stream As New IO.StreamReader("D:\sw.ini", System.Text.Encoding.Default)
        Dim line As String
        Dim line1 As String
        While Stream.Peek() <> -1
            line = Stream.ReadLine
            If line.StartsWith("[") AndAlso line.EndsWith("]") Then
                line1 = Stream.ReadLine
                If Not IO.File.Exists(line1) Then
                    CheckedListBox1.Items.Add(line)
                End If
            End If
        End While
        Stream.Close()
        CheckedListBox1.SelectedIndex = 0