'CSV入力 

            Dim Reader As IO.StreamReader

            Dim csvstr As String = String.Empty



            Reader = New IO.StreamReader(FileName, System.Text.Encoding.GetEncoding("shift_jis"))



            csvstr = Reader.ReadLine()

            Do Until csvstr Is Nothing

                Dim str() As String

                str = Split(csvstr, ",")

                'ちなみにここではCTypeは訳あって使えません。 

                Dim Array As String() = {str(0), str(1)}

                ListView1.Items.Add(New ListViewItem(Array))



                csvstr = Reader.ReadLine()

            Loop



            Reader.Close()