Private Sub CSVRead_1()

        '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, ",")

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

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



            csvstr = Reader.ReadLine()

        Loop



        Reader.Close()

    End Sub

'該当個数分作る 

'以下呼び出し部分 



        Call CSVRead_1()