Form1.vb

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports DevExpress.XtraRichEdit
Imports DevExpress.XtraRichEdit.Services

Namespace WindowsFormsApplication1
	Partial Public Class Form1
		Inherits Form
		Public Sub New()
			InitializeComponent()
		End Sub

		Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
			richEditControl1.ReplaceService(Of ISyntaxHighlightService)(New HTMLSyntaxHighlightService(richEditControl1))
			Using server As IRichEditDocumentServer = richEditControl1.CreateDocumentServer()
				server.Text = "some HTML text"
				richEditControl1.Text = server.HtmlText
			End Using
			richEditControl1.Document.DefaultCharacterProperties.FontName = "Consolas"
			richEditControl1.Document.DefaultCharacterProperties.FontSize = 9
		End Sub
	End Class
End Namespace