kuroi, agradeço a questão da margem, já consegui configurar para um valor necessário para não desfigurar as linhas, Quanto a troca das cores infelizmente não consegui sucesso, em seu link pelo que entendi ele troca as cores de acordo com um determinado numero de caracteres em sequencia, no meu caso eu preciso que ele analise qual as tags para depois trocar as cores. Graymalkin, devia ter citado no inicio de meu post esse tópico, estudei durante um bom tempo ele, tanto o code do §uiciDa£ o qual tentei adaptar sem sucesso [ELE USA O VB.NET ] Como o seu code [Não entendi muito bem na verdade] No caso do code do §uiciDa£ como disse eu ate tentei adaptar pro vb6.0 mas por exemplo onde é mencionado: Private Sub RTB_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RTB.TextChanged No vb 6.0 da erro pois não aceita (ByVal sender As System.Object, ByVal e As System.EventArgs) assim como as declarações RTB.SelectionFont = New Font(RTB.SelectionFont, FontStyle.Bold) O maximo que consegui fazer, foi gerar um FIND, dessa forma Private Sub RichTextBox1_Change() RichTextBox1.Find ("<html>") RichTextBox1.SelColor = vbRed End Sub mas quando digito a tag <html> ele encontra o texto, mas permanece o foco na tag e se eu continuo digitando acabo perdendo a tag porque ele subscreve. Tentei ainda algumas combinações com if mas sem sucesso até o momento uma delas foi essa Private Sub RichTextBox2_Change() texto = RichTextBox2.SelColor = vbBlue If RichTextBox2.Find("<html>") Then texto = RichTextBox2.Text End If End Sub