Código
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
PD: Lo modifiqué un poco por si quieres un comando a la lista que devuelva el valor del color que estaba al principio