Vb.net I want to copy datatable to anther datatable with other columns

'create sample datatable (source)
Dim dtOrig AS DataTable = New DataTable()
dtOrig.Columns.Add(New DataColumn("Id", Type.GetType("System.Int32")))
dtOrig.Columns.Add(New DataColumn("UserName", Type.GetType("System.String")))
dtOrig.Columns.Add(New DataColumn("IsActive", Type.GetType("System.Boolean")))
dtOrig.Rows.Add(New Object(){1, "Adam", False})
dtOrig.Rows.Add(New Object(){2, "Ariel", True})
dtOrig.Rows.Add(New Object(){3, "Beast", False})
dtOrig.Rows.Add(New Object(){4, "Beauty", True})

''copy columns form original DataTable
Dim dtCopy  AS DataTable = New DataTable()
'create copy of original datatable (structure)
dtCopy = dtOrig.Clone()
'copy data
dtCopy = dtOrig.Copy()
'add new column
dtCopy.Columns.Add(New DataColumn("Salary", Type.GetType("System.Double")))
'insert default value for new column 
For i As Integer = 0 To dtCopy.Rows.Count-1
	Dim dr As DataRow = dtCopy.Rows(i)
	dr("Salary")= 100*(i+1.5)
Next