YuOさん、ありがとうございます、
  ''' <summary>
    ''' リプレイデータを盤に追加する。
    ''' </summary>
    ''' <param name="bords ">石の二次元配列</param>
    ''' <param name="position">一手分の盤の論理位置</param>
    ''' <param name="state">石の種類</param>
    ''' <remarks></remarks>
    Public Sub Add(ByRef bords As Bord, ByVal position As Point, ByVal state As Stone.StoneState)
        '盤をNewしました。
        Dim bord As Bord = New Bord(KeyWordMaxStoneCollShort,KeyWordMaxStoneRowShort)        
        bord.BordStones = bords.BordStones   <-引数で受け取ったStoneクラスを代入しました。
        'Me.StoneLogicalPointList.Add(position)
        'Me.StoneEnumColorList.Add(state)
        Me.ReplayStoneBordList.Add(bord)      <-代入された盤クラスほリストに追加しました。
    End Sub
まだ奮闘してます。
言われる意味は解るのですがうまくいきません。
簡単に説明するとリストに登録したいものはbordクラスの中にあるStone(,)クラス(BordStonesの事)
です。
StoneクラスはBordクラスがNewされた時点でインスタンス化されています。
後にGUIのListBoxからReplayStoneBordListを参照するのですがやっぱり全部同じアドレスの参照に
なってます。
気になって食事もできない・・・
説明が足りなければまた聞いて下さい。