Mensajes

Añade un ListBox llamado lstBox y un TextBox llamado txtBox y copia el siguiente código en el formulario

Código (vb) [Seleccionar] Expandir

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

No se ven mal pero se ven un tanto borrosas.

¿Qué cámara es?