Permite tener múltiples decisiones en forma sucesiva dependiendo de la condición que es la que permite pasar a otro ciclo If si la condición anterior es falsa.
En base a un listado el programa deberá tomar una decisión si hacen click en algún color del ListBox (es como tener un menú).
Private Sub Form_Load()
List1.AddItem "rojo"
List1.AddItem "verde"
List1.AddItem "Azul"
List1.AddItem "Amarillo"
List1.AddItem "blanco"
Label1.Caption = "Visual Basic 6"
End Sub
Private Sub List1_Click()
If List1.ListIndex = 0 Then
BackColor = RGB(255, 0, 0)
Label1.BackColor = RGB(255, 255, 0)
Label1.ForeColor = RGB(255, 0, 0)
ElseIf List1.ListIndex = 1 Then
BackColor = RGB(0, 255, 0)
Label1.BackColor = RGB(255, 0, 0)
Label1.ForeColor = RGB(0, 255, 0)
ElseIf List1.ListIndex = 2 Then
BackColor = RGB(0, 0, 255)
Label1.BackColor = RGB(255, 255, 0)
Label1.ForeColor = RGB(0, 0, 255)
ElseIf List1.ListIndex = 3 Then
BackColor = RGB(255, 255, 0)
Label1.BackColor = RGB(0, 255, 255)
Label1.ForeColor = RGB(255, 255, 0)
ElseIf List1.ListIndex = 4 Then
BackColor = RGB(255, 255, 255)
Label1.BackColor = RGB(255, 0, 255)
Label1.ForeColor = RGB(255, 255, 255)
End If
End Sub
