Visual Basic

Dim m_htmlBuilder As New StringBuilder
        With m_htmlBuilder
            .Append("<div style=""width: " & p_width & "; Height: " & p_height & "; text-align: center; margin: 0px auto; background-color: rgb(28,134,238);"">" & vbCrLf)
            .Append("   <span style=""color: rgb(255,255,255); font-size: 1.0em; font-weight: bold; line-height: " & p_height & ";"">" & vbCrLf)
            .Append(p_html_name & " is now ready for use" & vbCrLf)
            .Append("   </span>" & vbCrLf)
            .Append("</div>" & vbCrLf)
        End With

        Dim m_htmlStream As String = m_htmlBuilder.ToString

        Try

            Dim htmlLen As Long = m_htmlStream.Length
            Dim charArray As Char() = New Char(htmlLen) {}
            Dim byteArray() As Byte = New Byte() {}

            For cdx As Integer = 0 To htmlLen - 1
                charArray(cdx) = m_htmlStream(cdx)
                Dim charVal As Char = charArray(cdx)
                Array.Resize(byteArray, byteArray.Length + 1)
                byteArray(byteArray.Length - 1) = UTF8CharToByte(charVal)
            Next

            Using htmlStream = New FileStream(p_html_path, FileMode.Create, FileAccess.Write)
                Using writer As BinaryWriter = New BinaryWriter(htmlStream, Encoding.UTF8)
                    Dim [utf8] As Encoding = Encoding.UTF8
                    Dim preamble As Byte() = [utf8].GetPreamble()
                    writer.Write(preamble)
                    writer.Write(byteArray, 0, byteArray.Length - 1)

                    If Not (writer Is Nothing) Then
                        writer.Close()
                        writer.Dispose()
                    End If

                End Using

                If Not (htmlStream Is Nothing) Then
                    htmlStream.Close()
                    htmlStream.Dispose()
                End If

            End Using

Imports System.Configuration

<SettingsSerializeAs(Configuration.SettingsSerializeAs.Xml)> _
Public Class Profile
    Public Property Name As String
    Public Property ViewerCommand As String
    Public Property ViewerPath As String
    Public Property StartService As Boolean
    Public Property StopService As Boolean
End Class

<SettingsSerializeAs(Configuration.SettingsSerializeAs.Xml)> _
Public Class ProfileCollection
    Inherits CollectionBase

    Public Shadows Function Add(ByVal ProfileObject As Profile) As Profile
        MyBase.List.Add(ProfileObject)
        Return ProfileObject
    End Function

    Public Shadows Sub Remove(ByVal ProfileObject As Profile)
        MyBase.List.Remove(ProfileObject)
    End Sub

End Class