Dim dialog As New OutputBox("Info")
dialog.Width = 300
dialog.textBox.Text = "Waiting..."
dialog.Show()

For Each row As DataGridViewRow In Dgv1.Rows
    dialog.textBox.AppendText("Row number " & row.Index & " at " & Date.Now.ToLongTimeString & Environment.NewLine)
Next