' Verweis auf die SendMessage-Funktion
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As _
  Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 
' Anzahl der Zeichen für den Namen der Schriftart
Const LF_FACESIZE = 32
 
' Zeichen-Informationen (eine ganze Menge, was man am 
' RichtTextBox-Steuerelement nicht gerade erkennen kann)
Type CHARFORMAT2
    cbSize As Integer
    wPad1 As Integer
    dwMask As Long
    dwEffects As Long
    yHeight As Long
    yOffset As Long
    crTextColor As Long
    bCharSet As Byte
    bPitchAndFamily As Byte
    szFaceName(0 To LF_FACESIZE - 1) As Byte
    wPad2 As Integer
    wWeight As Integer
    sSpacing As Integer
    crBackColor As Long
    lLCID As Long
    dwReserved As Long
    sStyle As Integer
    wKerning As Integer
    bUnderlineType As Byte
    bAnimation As Byte
    bRevAuthor As Byte
    bReserved1 As Byte
End Type
 
 
Sub ChangeSelectedChars()
    udtCharFormat.cbSize = LenB(udtCharFormat)    ' Größe der Struktur festlegen
    udtCharFormat.dwMask = CFM_BACKCOLOR    ' Angabe, welche Werte aus der 
    ' CharData2-Struktur auf die Zeichen angewand werden sollen. In diesem Fall 
    ' die Hintergrundfarbe der selektierten Zeichen
    udtCharFormat.crBackColor = m_SelHColor    ' In diese Eigenschaft wird die 
    ' Hintergrundfarbe der Zeichen gepsiechert
    SendMessage(URTB.hWnd, EM_SETCHARFORMAT, SCF_SELECTION, udtCharFormat)    ' 
    ' Information an das RichTextBox-Steuerelement schicken
End Sub