VB6 - Coloring of SQL statements ... Done !!!! :)) -

Option Explicit
 
Dim m_objFont As New StdFont
 
Private Sub Command1_Click()
Dim l_objParse As New MSSQLParser.vbSQLParser
    
    rtbParsed.Text = l_objParse.ParseSQLSyntax(rtbSource.Text, vbSqlServerSyntax)
    
    rtbSource.TextRTF = "{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Tahoma;}}" & _
               "{\rtf1 \colortbl ;" & _
               "\red0\green0\blue255;" & _
               "\red255\green127\blue127;" & _
               "\red255\green0\blue255;" & _
               "\red0\green0\blue0;" & _
               "\red127\green127\blue127;" & _
               "\red255\green0\blue0;" & _
               "\red0\green0\blue0;" & _
               "\red0\green128\blue128;" & _
               "\red0\green0\blue0;" & _
               "\red0\green0\blue0;" & _
               "}\viewkind4\uc1\pard" & _
               rtbParsed.Text & "\par }"
               
    rtbSource.SelStart = 0
    rtbSource.SelLength = Len(rtbSource.Text)
    
    'Set font properties
    rtbSource.SelFontName = m_objFont.Name
    rtbSource.SelFontSize = m_objFont.Size
    
    'UnSelect all text
    rtbSource.SelLength = 0
    
    Set l_objParse = Nothing
End Sub
 
Private Sub Form_Load()
    m_objFont.Name = rtbSource.Font
    m_objFont.Size = rtbSource.SelFontSize
End Sub