Private ReplayStoneBordList As New List(Of Board)() Public Sub Add(ByVal bords As Bord) Dim bord As New Bord() bord.BordStones = bords.BordStones '★ ReplayStoneBordList.Add( bords ) End Sub