Hola VeRaCrUzAnItO-10-
Así de buenas a primeras en un ListBox no puedes conseguir que cada item de la lista tenga un color diferente... tal vez subclasificando el control se pueda conseguir, pero esto debe ser complicado. Otra opción podría ser utilizar un RichTextBox al que irías añadiendo palabras seguidas de un avance de carro y nueva linea (vbCrLf), pero simular con este control las posibilidades de funcionamiento de una lista, también puede complicarse un poco.
De todas formas, y con los pocos datos que das, tal vez te sirva lo siguiente:
Aunque todas las palabras en el ListBox tengan el mismo color, puedes asociar a cada una el color que le correspondería (mediante la propiedad ItemData, por ejemplo) y cuando tengas que visualizar una de ellas en el TextBox, cambia su ForeColor por el que corresponda. Algo asi:
Suponiendo que
TextAdd es un TextBox que contiene la palabra a añadir.
List1 es la lista en la que vas añadiendo.
'Añades la palabra
List1.AddItem TextAdd.Text
'Asignas el color que sea
List1.ItemData(List1.ListCount)=RGB(123,123,123)
TextDsp es otro TextBox en el que visualizas la palabra elegida.
Private Sub List1_Click ()
If List1.ListIndex = -1 Then Exit Sub
TextDsp.ForeColor = List1.ItemData(List1.ListIndex)
TextDsp.Text = List1.List(List1.ListIndex)
End Sub
A ver si esto te sirve de algo...
Si quieres mostrar varias palabras a la vez de distintos colores usa un RichTextBox.
Suerte.
