Ya lo intente pasandoselo a un data table y sigue mostrandomelo en forma vertical.
Private Sub btnAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAgregar.Click
Dim DataTable = dgProductos.Items(2).Cells(2).Text
dgCompra.DataSource = DataTable
dgCompra.DataBind()
y el resultado sigue siendo:
L
A
P
I
Z
en lugar de ser LAPIZ.
alguna otra sugerencia???
GRACIAS POR LA RESPUESTA Jose Minglein2.