Public Class LTable
    Inherits Table
    Implements ICloneable
    Public Function Clone() As Object Implements System.ICloneable.Clone
        Dim t As New Table, i As Integer, j As Integer
        t.ID = MyBase.ID
 
        For i = 0 To MyBase.Rows.Count - 1
            Dim r As New TableRow
            r.ID = MyBase.Rows(i).ID
            For j = 0 To MyBase.Rows(i).Cells.Count - 1
                Dim c As New TableCell
                c.ID = MyBase.Rows(i).Cells(j).ID
                r.Cells.Add(c)
            Next
            t.Rows.Add(r)
        Next
        Return t
    End Function
End Class