Cómo convertir DataGrid a dataTable

Quiero copiar todos los registros de la cuadrícula de datos en la tabla de datos sin usar ningún bucle. Por ej .:

Dim dt as New DataTable
dt = Datagrid1.Items

Pero esto no funciona y da un mensaje de error.

Mi plataforma de desarrollo es Visual Studio 2010 y el lenguaje es WPF con vb.net 4.0