Dim tw As New StreamWriter("C:\test.htm", False, _
          System.Text.Encoding.UTF8)
        Dim hw As New HtmlTextWriter(tw)
        Dim maxRows As Integer = 3
        Dim maxCols As Integer = 4
 
        hw.WriteFullBeginTag("html")
        hw.WriteLine()
 
        hw.WriteFullBeginTag("body")
        hw.WriteLine()
 
        hw.WriteFullBeginTag("h1")
        hw.Write("Using the HtmlTextWriterClass")
        hw.WriteEndTag("h1")
        hw.WriteLine()
 
        hw.WriteBeginTag("table")
        hw.AddStyleAttribute(HtmlTextWriterStyle.FontWeight, "bold")
        hw.AddStyleAttribute(HtmlTextWriterStyle.FontFamily, "verdana")
        hw.AddStyleAttribute(HtmlTextWriterStyle.FontSize, "14pt")
        hw.WriteAttribute("border", "1")
        hw.Write(HtmlTextWriter.TagRightChar)
        hw.WriteLine()
 
        hw.Indent += 1
        For i As Integer = 0 To maxRows - 1
 
            hw.WriteFullBeginTag("tr")
            hw.WriteLine()
 
            hw.Indent += 1
            For j As Integer = 0 To maxCols - 1
 
                hw.WriteBeginTag("td")
                hw.WriteAttribute("valign", "top")
                hw.WriteAttribute("bgcolor", "lightblue")
                hw.Write(HtmlTextWriter.TagRightChar)
 
                hw.Write("Cell (" + i.ToString() + "," + j.ToString() + ")")
 
                hw.WriteEndTag("td")
                hw.WriteLine()
            Next
 
            hw.Indent -= 1
            hw.WriteEndTag("tr")
            hw.WriteLine()
        Next
        hw.Indent -= 1
 
        hw.WriteEndTag("table")
        hw.WriteLine()
 
        hw.WriteEndTag("body")
        hw.WriteLine()
 
        hw.WriteEndTag("html")
 
        hw.Close()
        tw.Close()