Public OriginalColor As String
 
Private Sub Form_Load()
    OriginalColor = txtBox.BackColor
 
    lstBox.AddItem "Original"
    lstBox.AddItem "Rojo"
    lstBox.AddItem "Verde"
    lstBox.AddItem "Azul"
 
    lstBox.ListIndex = 0
End Sub
 
Private Sub lstBox_Click()
    With txtBox
        Select Case lstBox.ListIndex
            Case 0: .BackColor = OriginalColor
            Case 1: .BackColor = vbRed
            Case 2: .BackColor = vbGreen
            Case 3: .BackColor = vbBlue
        End Select
    End With
End Sub