Foro de elhacker.net

hola buenos dias..estoy aprendiendo visual basic y quiero que desde un listbox me cambie el color de un textbox..se hacerlo con un comand1,con optionbutton pero con el listbox siempre me sale el ultimo color que agrego.

ejemplo: text1.backcolor = vbred pongo esto y me lo cambia pero cuando coloco otro color me sale siempre el ultimo..
como haria para seleccionar un color en el listbox y que me aparezca en un texbox?

Option Explicit
 
Private Sub Form_Load()
    List1.AddItem "Amarillo"
    List1.AddItem "Azul"
    List1.AddItem "Rojo"
End Sub
 
Private Sub List1_Click()
    With Text1
        Select Case List1.ListIndex
            Case 0: .BackColor = vbYellow
            Case 1: .BackColor = vbBlue
            Case 2: .BackColor = vbRed
        End Select
    End With
End Sub

gracias por la respuesta  ;-)