VB .NET - Add todos os itens do datagridview no textbox

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        With DataGridView1

            .Rows.Add("15h30", "Operadora francesa se desculpa por blecaute de 9 horas em celulares")

            .Rows.Add("13h00", "Apple pode dominar mercado com iPad menor, dizem especialistas")

            .Rows.Add("09h01", "Loja de eletrônicos Best Buy anuncia corte de 2.400 funcionários nos EUA")

            .Rows.Add("07h00", "Em game, Anderson Silva vence Chael Sonnen no UFC 148 por pontos")

            .Rows.Add("06h23", "Twitter muda sistema de busca para apresentar resultados instantâneos")

        End With

    End Sub

    Private Sub btnItens_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnItens.Click

        Dim ContLinhas As Integer

        Dim i As Integer

        Me.txtItens.Text = ""

        ContLinhas = Me.DataGridView1.RowCount

        For i = 0 To ContLinhas - 1

            Me.txtItens.Text &= CStr(Me.DataGridView1.Item(0, i).Value) + " | " + CStr(Me.DataGridView1.Item(1, i).Value) + vbCrLf

        Next

    End Sub

End Class

Pegue o projeto neste link: http://www.mediafire.com/?y4a9z35268an5ah

Espero ter ajudado, até a próxima... Abraços.