Imports System

Imports System.Data

Imports System.Xml

Imports System.Linq

​

Public Class Program

​

    Public Shared Sub Main()

        Dim dt = New DataTable()

        dt.Columns.Add("Col1")

        dt.Columns.Add("Col2")

        Dim dt2 = New DataTable()

        Dim cc = New DataColumn()

        dt2.Columns.AddRange(dt.Columns.OfType(Of DataColumn)().[Select](Function(c) New DataColumn(c.ColumnName, c.DataType)).ToArray())

        For Each column In dt2.Columns

            Console.WriteLine(column)

        Next

    End Sub

End Class

​