Ascensor (por Anita)

Private Sub luz_Click()
If ascensor.FillColor = vbWhite Then
ascensor.FillColor = vbYellow
End If
End Sub