puoi fare semplicemente così usando un panel
codice:
       Dim i As Integer
        For i = 1 To 4
            Dim t As New Table
            Dim r As New TableRow
            Dim c As New TableCell
            c.Text = "quello che vuoi"
            r.Cells.Add(c)
            t.Rows.Add(r)
            Panel1.Controls.Add(t)
        Next