For loop inside Assign

We can do it with LINQ

Method Syntax
dtData.Columns.Cast(Of DataColumn).Select(Function (x) x.ColumnName).toArray

Query Syntax:
(From c in dtData.Columns.Cast(Of DataColumn
Select n=c.ColumnName).toArray