Copiar al protapapeles el contenido de un DGView en vb.net

Buen dia:

Esta es mi primer entrada en el blogg espero les sea de utilidad.

el codigo es el siguiente y se hizo con vb 2005:


Dim Datos As String = Nothing
Dim i, k As Integer

Try

Me.Cursor = Cursors.WaitCursor

For k = 0 To dgwArchivo.ColumnCount - 1
Datos = CStr(Datos & dgwArchivo.Columns(k).Name & vbTab)
Next

Datos = CStr(Datos & vbNewLine)
k = 0

'Recorremos todos los datos de la columna en la que hicimos click
For i = 0 To dgwArchivo.Rows.Count - 1
For k = 0 To dgwArchivo.ColumnCount - 1
Datos = CStr(Datos & CStr(dgwArchivo.Item(k, i).Value) & vbTab)
Next
Datos = Datos & vbNewLine
Next

' limpiamos el portapapeles

Clipboard.Clear()

'Copiamos los datos del Datagrid al Clipboard

Clipboard.SetText(Datos)

Me.Cursor = Cursors.Default

MsgBox("Archivo compiado con exito", MsgBoxStyle.Information,

Application.ProductName)

Me.Close()

Catch ex As Exception
MsgBox("Error al copiar el archivo: " & e.ToString, MsgBoxStyle.Critical,application.ProductName)
End Try