RTB and Listbox COLOR

[totaly]

Hi,

i want to be able to colourise words in 2 different objects, richtextbox and listbox control, the code below got the rtb sorted..but i dont know how to use it for both, could somebody help make a module or something to do such a thing if possible.

Private Sub cmdConvert_Click()
    Dim x As Integer
    txtColored.Text = ""
    For x = 1 To Len(txtCode.Text)
        If Mid(txtCode.Text, x, 1) = "^" Then
            If Mid(txtCode.Text, x + 1, 1) = 0 Then
                txtColored.SelColor = vbBlack
            ElseIf Mid(txtCode.Text, x + 1, 1) = 1 Then
                txtColored.SelColor = vbRed
            ElseIf Mid(txtCode.Text, x + 1, 1) = 2 Then
                txtColored.SelColor = vbYellow
            ElseIf Mid(txtCode.Text, x + 1, 1) = 3 Then
                txtColored.SelColor = vbGreen
            ElseIf Mid(txtCode.Text, x + 1, 1) = 4 Then
                txtColored.SelColor = vbBlue
            End If
            x = x + 1
        Else
            txtColored.SelText = Mid(txtCode.Text, x, 1)
        End If
    Next x
End Sub

[RobDog888]

You can not color listbox items separately unless you do the drawing of items yourself.

Why are you using a textbox to choose the color? Should use a combo or such.

[totaly]

codes an example for a game.
ill add a command for people to change thier display name.

displayname will be shown on the (userlist/players which is a listbox maybe i could use a different control like listview or something.)

and in the actual game window, which is a richtextbox.

other games manage to do it somehow.