Private Sub SynColor(Keyword() As String, Color As Long)
'// SyntaxHighlighting
 
Dim LPos As Long, oldPos As Long, WordCount As Long, n As Long
oldPos = txtCode.SelStart
 
'Wieviele Schlüsselwörter?
WordCount = UBound(Keyword())
 
'Alle Schlüsselwörter durchlaufen
For n = 0 To WordCount - 1
LPos = InStr(LPos + Len(Keyword(n)), txtCode.Text, Keyword(n))
    Do Until LPos = 0
        txtCode.SelStart = LPos - 1
        txtCode.SelLength = Len(Keyword(n))
        txtCode.SelColor = Color
        LPos = InStr(LPos + Len(Keyword(n)), txtCode.Text, Keyword(n))
    Loop
Next n
 
txtCode.SelStart = oldPos
txtCode.SelColor = colNormal
 
End Sub