Visual Basic - Colores en un Rich Textboxt

Hola a todos, estoy realizando un proyecto en VB 6.0 y necesito crear
en un Rich Textbox lineas de dos colores, las lineas contienen numeros,
siendo los pares rojos y los impares verdes. He usado el siguiente codigo
y no funciona:

'suponiendo que el control Rich Textbox se llama t

Dim i as integer

For i = 1 To 10
If i Mod 2 = 0 Then ' si i es par
t.SelColor = 255
t.TextRTF = t.TextRTF & i & Chr(13) & Chr(10)
Else
t.SelColor = 65280
t.TextRTF = t.TextRTF & i & Chr(13) & Chr(10)
End If
Next i

' Añado el caracter ASCII 13 para producir el salto de linea, y el 10
' para eliminar una barra vertical que aparece.

Muchisimas gracias a todos por vuestras respuestas.

Le puse de nombre R en lugar de T

Private Sub Command1_Click()
R.SetFocus

For i = 1 To 10
If i Mod 2 = 0 Then ' si i es par
R.SelColor = 255
DoEvents
SendKeys i & "{ENTER}"
DoEvents
Else
R.SelColor = 65280
DoEvents
SendKeys i & "{ENTER}"
DoEvents
End If
Next i
End Sub

Muchas gracias por tu respuesta, ha funcinado perfectamente. Siento no habertelo agradecido antes, pero debido al puente he estado unos dias fuera.