<%@ Page Language=VB Debug=true %>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
Dim MyTable = New Table
Dim NumRows as Integer
Dim NumColumns as Integer
For NumRows = 1 to 3
Dim TheRow = New TableRow
For NumColumns = 1 to 4
Dim TheCell = New TableCell
TheCell.Text = NumRows & "," & NumColumns
TheRow.Cells.Add(TheCell)
Next
MyTable.Rows.Add(TheRow)
Next
frmMyPage.Controls.Add(MyTable)
End Sub
Creating an HTML Table Using the Table Control