Dim rd As New FileStream(ファイル名, FileMode.Open)

        Dim binaryformat As New BinaryFormatter



        ReplayStoneBordList = New List(Of Stone(,))

        NowPutStoneList = New List(Of Stone)



        Do While rd.Position < rd.Length

            Dim log(,) As Stone = DirectCast(binaryformat.Deserialize(rd), Stone(,))

            ReplayStoneBordList.Add(log)

            Dim stn As Stone = DirectCast(binaryformat.Deserialize(rd), Stone)

            NowPutStoneList.Add(stn)

        Loop



        rd.Close()