>>87
とりあえず動いた。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

　　'列の設定
　　Me.DataGridView1.ColumnCount = 1
　　Me.DataGridView2.ColumnCount = 1

　　'グリッド１に３行追加
　　Me.DataGridView1.Rows.Add("hoge1")
　　Me.DataGridView1.Rows.Add("hoge2")
　　Me.DataGridView1.Rows.Add("hoge3")

　　'グリッド２にグリッド１の行数を追加
　　Dim Count As Integer = Me.DataGridView1.Rows.Count
　　Me.DataGridView2.Rows.Add(Count)

　　'グリッド２に値を代入
　　For i As Integer = 0 To Count - 1
　　　Me.DataGridView2.Rows(i).Cells(0).Value = "hoge" & (i + 1).ToString
　　Next

End Sub