SELECCION

VISTA TERMINADA Y FUNCIONANDO

VISTA DEL DISEÑO

PROGRAMACION

Option Explicit

Private Sub cmbMes_Click()
Select Case cmbMes.Text

Case "Enero"
        Me.pctColor.BackColor = vbYellow
        MsgBox "Usted ha elegido Enero"
Case "Febrero"
        Me.pctColor.BackColor = vbBlue
        MsgBox "Usted ha elegido Febrero"
Case "Marzo"
        Me.pctColor.BackColor = vbCyan
        MsgBox "Usted ha elegido Marzo"
Case "Abril"
        Me.pctColor.BackColor = vbGreen
        MsgBox "Usted ha elegido Abril"
Case "Mayo"
        Me.pctColor.BackColor = vbWhite
        MsgBox "Usted ha elegido Mayo"
Case "Junio"
        Me.pctColor.BackColor = vbBlack
        MsgBox "Usted ha elegido Junio"
Case "Julio"
        Me.pctColor.BackColor = vbMagenta
        MsgBox "Usted ha elegido Julio"
Case "Agosto"
        Me.pctColor.BackColor = vbGreen
        MsgBox "Usted ha elegido Agosto"
Case "Septiembre"
        Me.pctColor.BackColor = &H40&
        MsgBox "Usted ha elegido Septiembre"
       
Case Else
        Me.pctColor.BackColor = vbRed
        MsgBox "Usted no ha elegido un mes"

End Select
End Sub

Private Sub Form_Load()
    cmbMes.AddItem "Enero"
    cmbMes.AddItem "Febrero"
    cmbMes.AddItem "Marzo"
    cmbMes.AddItem "Abril"
    cmbMes.AddItem "Mayo"
    cmbMes.AddItem "Junio"
    cmbMes.AddItem "Julio"
    cmbMes.AddItem "Agosto"
    cmbMes.AddItem "Septiembre"
    cmbMes.AddItem "Octubre"
    cmbMes.AddItem "Noviembre"
    cmbMes.AddItem "Diciembre"
    cmbMes.AddItem "ninguno"

End Sub

Private Sub pctColor_Click()

End Sub