Public Class MyDataTable
    Inherits DataTable
 
    Public Function Copy() As DataTable
        Dim dsSource, dsCopy As New DataSet
        Dim fs As IO.MemoryStream = New IO.MemoryStream()
        Try
            dsSource.Tables.Add(Me)
            dsSource.WriteXml(fs)
            fs.Position = 0
            dsCopy.ReadXml(fs)
            Return dsCopy.Tables(0)
        Finally
            dsCopy.Dispose()
            dsSource.Dispose()
            fs.Dispose()
        End Try
    End Function
 
End Class