in vb.net solution

Dim Counter As Integer = 0

     For I As Integer = 0 To 6
         Dim RowItems(7) As String
         For J As Integer = 0 To 7
             RowItems(J) = ListBox1.Items(Counter)
             Counter += 1
         Next
         DataGridView1.Rows.Add(RowItems)
     Next