Skifte text farve i en rich text box?

Hej
Jeg har brug for at kunne skrive med en anden farve en sort er der nogen der har nogle forslag?
Det skal være sådan at der kan være flere farver i samme box. Har lavet en kode til at skifte mellem Bold og ikke-bold

Private Sub Command1_Click()
Dim IntLen As Integer

  With RichTextBox1
      .Font.Bold = False
      .Text = \"OverSkrift\"
      .SelStart = 0
      .SelLength = Len(.Text)
      .SelBold = True
      .Refresh
      IntLen = Len(.Text)
  End With
  With RichTextBox1
      .Text = .Text & vbCrLf & \"Line 1\"
      .SelStart = IntLen + 1
      .SelLength = Len(.Text) - .SelStart
      .SelBold = False
  End With
End Sub
Tak!