SoloCodigo

Hola a todos, bueno sucede que quiero que al escribir un texto, este cambie el color de cada letra de un color diferente. Por ejemplo: al escribir una H que la ponga AZUL, al escribir E la ponga ROJA...etc (HELLO).

Ya tengo algo pero me pone todo el texto del mismo color...como puedo hacerlo?

Sub Text1_KeyPress(KeyAscii As Integer)
 Select Case KeyAscii
  Case 101
      Text1.ForeColor = vbRed
  Case 104
      Text1.ForeColor = vbBlue
  Case 108
      Text1.ForeColor = vbYellow
  Case 111
      Text1.ForeColor = vbGreen
 End Select
End Sub

Orale, pues muchisimas gracias por responder ya lo probe, y vaya ke era algo tan sencillo como usar un RichTextBox....jeje  

Tanks Brroz y salu2