<Flat>
    <Button>
        <Property>BackColor</Property>
        <Value>Color.WhiteSmoke</Value>
    </Button>
    <Button>
        <Property>BorderStyle</Property>
        <Value>BorderStyle.Solid</Value>
    </Button>
    <Button>
        <Property>BorderWidth</Property>
        <Value>Unit.Pixel(1)</Value>
    </Button>
    <Button>
        <Property>BorderColor</Property>
        <Value>Color.Gray</Value>
    </Button>    
    <Button>
        <Property>Font.Name</Property>
        <Value>"Tahoma"</Value>
    </Button>        
    <TextBox>
        <Property>Font.Name</Property>
        <Value>"Tahoma"</Value>
    •••
    <DataGrid>
        <Property>Font.Name</Property>
        <Value>"Tahoma"</Value>
    </DataGrid>
    <DataGrid>
        <Property>Font.Size</Property>
        <Value>FontUnit.Point(8)</Value>
    </DataGrid>
    <DataGrid>
        <Property>BorderStyle</Property>
        <Value>BorderStyle.Solid</Value>
    </DataGrid>
    <DataGrid>
        <Property>BorderWidth</Property>
        <Value>Unit.Pixel(1)</Value>
    </DataGrid>
    <DataGrid>
        <Property>BorderColor</Property>
        <Value>Color.Gray</Value>
    </DataGrid>
</Flat>

Private Shared Sub HandleThemeInfo(ByVal theTheme As String, _
        ByVal root As Control)
    Dim themeName As String = theTheme.ToLower()
    Dim currentThemeTypeName As String = GetThemeTypeName(themeName)
    Dim themeAssembly As String = GetThemeAssemblyName(themeName)
    Dim infoFile As String = GetThemeInfoFileName(themeName)
    Dim shouldCompile As Boolean = False
    Dim currentTheme As Theme = Nothing

    ' Look for a [theme].xml file in the HttpRuntime.CodegenDir folder
    If Not File.Exists(infoFile) Then
        shouldCompile = True
    End If

    ' Parse the info-file to extract the assembly name and the file 
    ' dependency
    If Not shouldCompile Then
        Dim reader As New XmlTextReader(infoFile)
        reader.Read()   ' on the root <info>
        Dim themeObjAssembly As String = reader("assem").ToString()
        Dim themeObjType As String = reader("type").ToString()
        reader.Read()
        reader.Read()   ' on the <filedep> node
        Dim themeOrigPath As String = reader("name").ToString()
        Dim themeTimeStamp As Long = Long.Parse(reader("time").ToString())
        reader.Close()

        ' Compare the timestamp of the XML file and the .theme11 file
        ' If no match is found, the theme object is recreated
        Dim fiTheme As New FileInfo(themeOrigPath)
        If fiTheme.LastWriteTime.Ticks <> themeTimeStamp Then
            shouldCompile = True
        End If
    End If

    ' For some reasons, the DLL doesn't exist
    If Not File.Exists(themeAssembly) Then
        shouldCompile = True
    End If

    ' Compile the theme into a class/assembly in the 
    ' HttpRuntime.CodegenDir folder
    If shouldCompile Then
        CreateTheme(themeName)
    End If

    ' At this point, we can safely load the assembly found at the earlier 
    ' step
    Dim handle As ObjectHandle = _
        Activator.CreateInstanceFrom(themeAssembly, currentThemeTypeName)
    currentTheme = CType(handle.Unwrap(), MsdnMag.Theme)

    ' Apply the theme
    currentTheme.ApplyRecursive(root)
End Sub

Private Shared Function GetThemeTypeName(ByVal themeName) As String
    Return String.Format("MsdnMag.{0}_theme11", themeName)
End Function

Private Shared Function GetThemeInfoFileName(ByVal themeName) As String
    Return String.Format("{0}\{1}.theme11.xml", HttpRuntime.CodegenDir, _
                         themeName)
End Function

Private Shared Function GetThemeAssemblyName(ByVal themeName) As String
    Return String.Format("{0}\{1}_theme.dll", HttpRuntime.CodegenDir, _
                         themeName)
End Function

//-----------------------------------------------------------------------
// <autogenerated>
//     This code was generated by a tool.
//     Runtime Version: 1.1.4322.573
//
//     Changes to this file may cause incorrect behavior and will be lost 
//     if the code is regenerated.
// </autogenerated>
//-----------------------------------------------------------------------

namespace MsdnMag {
    using System.Web.UI.WebControls;
    using System.Web.UI;
    using System.Drawing;
    
    public class brown_theme11 : Theme {
        
        public override void Apply(Control ctl) {
            //  
            //  ------------------------------------
            //  Class:: Button
            //  ------------------------------------
            if (ctl is Button) {
                Button _button = ((Button)(ctl));
                _button.BackColor = Color.Brown;
                _button.ForeColor = Color.Linen;
                _button.BorderStyle = BorderStyle.Outset;
                _button.BorderWidth = Unit.Pixel(1);
                _button.BorderColor = Color.PeachPuff;
                _button.Font.Name = "Arial";
                _button.Font.Bold = true;
            }
            //  
            //  ------------------------------------
            //  Class:: TextBox
            //  ------------------------------------
            if (ctl is TextBox) {
                TextBox _textbox = ((TextBox)(ctl));
                _textbox.Font.Name = "Tahoma";
                _textbox.ForeColor = Color.Maroon;
                _textbox.BackColor = Color.Linen;
                _textbox.BorderStyle = BorderStyle.Inset;
                _textbox.BorderWidth = Unit.Pixel(1);
                _textbox.BorderColor = Color.Chocolate;
            }
            //  
            //  ------------------------------------
            //  Class:: DataGrid
            //  ------------------------------------
            if (ctl is DataGrid) {
                DataGrid _datagrid = ((DataGrid)(ctl));
                _datagrid.Font.Name = "Arial";
                _datagrid.Font.Size = FontUnit.Point(9);
                _datagrid.BorderStyle = BorderStyle.Outset;
                _datagrid.BorderWidth = Unit.Pixel(2);
                _datagrid.BorderColor = Color.Brown;
            }
        }
    }
}

Private Shared Sub CreateTheme(ByVal themeName As String)
    ' Define the language to be used internally to generate 
    ' source/assembly
    Dim lang As String = "c#"    ' or vb

    ' Check the theme file for existence
    Dim fileName As String = GetThemeSourceFile(themeName)
    If Not File.Exists(fileName) Then
        Throw New ArgumentException(String.Format( _
            "The specified theme file ('{0}') _
            does not exist.", themeName))
    End If

    ' Read the content of the file to a DataSet
    ' Assume that the .theme11 file is an XML file that can be read as a 
    ' DataSet
    ' Each table in the DataSet has two columns: Property, Value
    Dim themeContents As New DataSet
    themeContents.ReadXml(fileName)

    ' Create a class that inherits from BaseTheme
    Dim sourceFile As String = CodeGenHelper.ParseThemeCode( _
        themeName, themeContents, lang)

    ' Create the XML companion file
    Dim infoFile As String = GetThemeInfoFileName(themeName)
    CodeGenHelper.CreateInfoFile(infoFile, themeName, fileName)

    ' Compile the class to the ASP.NET temp folder
    Dim comp As CodeDomProvider
    Select Case lang.ToLower()
        Case "vb"
            comp = New VBCodeProvider
        Case "c#", "cs"
            comp = New CSharpCodeProvider
    End Select

    CompileThemeClass(comp, sourceFile, themeName)
    Return
End Sub

' *****************************************************************
' Compile the autogenerated theme class
Private Shared Sub CompileThemeClass(ByVal comp As CodeDomProvider, _
        ByVal source As String, ByVal themeName As String)
    Dim asmName As String = GetThemeAssemblyName(themeName)
    If File.Exists(asmName) Then
        SafeRemove(asmName)
    End If

    Dim icc As ICodeCompiler = comp.CreateCompiler()
    Dim cp As CompilerParameters = New CompilerParameters

    cp.ReferencedAssemblies.Add("system.dll")
    cp.ReferencedAssemblies.Add("system.web.dll")
    cp.ReferencedAssemblies.Add("system.drawing.dll")
    cp.ReferencedAssemblies.Add("BaseTheme.dll")
    cp.OutputAssembly = asmName
    cp.IncludeDebugInformation = False
    cp.GenerateExecutable = False
    cp.GenerateInMemory = False

    Dim results As CompilerResults
    results = icc.CompileAssemblyFromFile(cp, source)

    If results.Errors.Count > 0 Then
        Dim msg As String = ""
        For Each err As CompilerError In results.Errors
            msg += String.Format("{0} at {1},{2} {3}", err.ErrorText, _
                                 err.Line, err.Column, vbCrLf)
        Next

        Throw New ApplicationException("Can't compile the theme: " + msg)
        Return  
    End If

    Return  
End Function

' *****************************************************************
' Remove/rename old assemblies to be replaced 
Private Shared Sub SafeRemove(ByVal asmName As String)
    ' Try to delete any old copy of the DLL
    If File.Exists(asmName + ".DELETE") Then
        File.Delete(asmName + ".DELETE")
    End If

    ' Try to delete the DLL
    Try
        File.Delete(asmName)
    Catch ex As Exception
        File.Move(asmName, asmName + ".DELETE")
    End Try
End Sub

Public Shared Sub CreateInfoFile(ByVal infoFile As String, _
        ByVal themeName As String, ByVal themeFile As String)
    ' Create the info file
    ' <info assem="xyz" type="MsdnMag.Sample_Theme11">
    '    <filedep name="c:\inetpub\wwwroot\app\themes\sample.theme11" 
    '     time="ticks" />
    ' </info>

    Dim xml As New XmlTextWriter(infoFile, Nothing)
    xml.Formatting = Formatting.Indented
    xml.Indentation = 1
    xml.IndentChar = vbTab
    xml.WriteStartElement("info")
    xml.WriteAttributeString("assem", "theme")
    xml.WriteAttributeString("type", "MsdnMag." + themeName + "_theme11")
    xml.WriteStartElement("filedep")
    xml.WriteAttributeString("name", themeFile)
    xml.WriteAttributeString("time", New _ 
        FileInfo(themeFile).LastWriteTime.Ticks)
    xml.WriteEndElement()
    xml.WriteEndElement()
    xml.Close()
End Sub

Private Shared Sub HandleCssInfo(ByVal theme As String, _
                                 ByVal link As HtmlGenericControl)
    Dim themeName As String = theme.ToLower()

    ' Retrieve the CSS file (if any): same name, .css extension
    Dim cssFile As String = GetCssThemeSourceFile(themeName)
    If Not File.Exists(cssFile) Then
        Return
    End If

    ' No <head> control provided
    If link Is Nothing Then
        Return
    End If

    link.Attributes("rel") = "stylesheet"
    link.Attributes("href") = "themes\" + theme + ".css"
End Sub