Codigo e Imagen del Ascensor (Por Kevin H.)

Private Sub Aceptar_Click()
Contador7.Caption = "Nº:"
C7.Caption = C7.Caption + 1
If Contraseña.Text = "llave" Then
Ascensor.Top = 1200
Else: Contraseña.CausesValidation = False
End If
Contraseña.Text = ""
Visor1.Caption = "P5"
Visor2.Caption = "P5"
Visor3.Caption = "P5"
Visor4.Caption = "P5"
Visor5.Caption = "P5"
Visor6.Caption = "P5"
Visor7.Caption = "P5"
VisorC.Caption = "Piso 5 Pen-House"
End Sub

Private Sub CP1_Click()
Contador3.Caption = "Nº:"
C3.Caption = C3.Caption + 1
Ascensor.Top = 5040
Visor1.Caption = "P1"
Visor2.Caption = "P1"
Visor3.Caption = "P1"
Visor4.Caption = "P1"
Visor5.Caption = "P1"
Visor6.Caption = "P1"
Visor7.Caption = "P1"
VisorC.Caption = "Piso 1"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub CP2_Click()
Contador4.Caption = "Nº:"
C4.Caption = C4.Caption + 1
Ascensor.Top = 4080
Visor1.Caption = "P2"
Visor2.Caption = "P2"
Visor3.Caption = "P2"
Visor4.Caption = "P2"
Visor5.Caption = "P2"
Visor6.Caption = "P2"
Visor7.Caption = "P2"
VisorC.Caption = "Piso 2"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub CP3_Click()
Contador5.Caption = "Nº:"
C5.Caption = C5.Caption + 1
Ascensor.Top = 3120
Visor1.Caption = "P3"
Visor2.Caption = "P3"
Visor3.Caption = "P3"
Visor4.Caption = "P3"
Visor5.Caption = "P3"
Visor6.Caption = "P3"
Visor7.Caption = "P3"
VisorC.Caption = "Piso 3"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub CP4_Click()
Contador6.Caption = "Nº:"
C6.Caption = C6.Caption + 1
Ascensor.Top = 2160
Visor1.Caption = "P4"
Visor2.Caption = "P4"
Visor3.Caption = "P4"
Visor4.Caption = "P4"
Visor5.Caption = "P4"
Visor6.Caption = "P4"
Visor7.Caption = "P4"
VisorC.Caption = "Piso 4"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub CP5_Click()
Contraseña.Enabled = True
Contraseña.Text = ""
End Sub

Private Sub CPB_Click()
Contador2.Caption = "Nº:"
C2.Caption = C2.Caption + 1
Ascensor.Top = 6000
Visor1.Caption = "PB"
Visor2.Caption = "PB"
Visor3.Caption = "PB"
Visor4.Caption = "PB"
Visor5.Caption = "PB"
Visor6.Caption = "PB"
Visor7.Caption = "PB"
VisorC.Caption = "Planta Baja"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub CSubs_Click()
Contador1.Caption = "Nº:"
C1.Caption = C1.Caption + 1
Ascensor.Top = 6960
Visor1.Caption = "SS"
Visor2.Caption = "SS"
Visor3.Caption = "SS"
Visor4.Caption = "SS"
Visor5.Caption = "SS"
Visor6.Caption = "SS"
Visor7.Caption = "SS"
VisorC.Caption = "SubSuelo"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub Luz_Click()
If Ascensor.FillColor = vbYellow Then
Ascensor.FillColor = vbButtonFace
Else: Ascensor.FillColor = vbYellow
End If
Contraseña.Text = ""
End Sub

Private Sub Parar_Click()
If CSubs.Enabled = True Then
Luz.Enabled = False
CSubs.Enabled = False
CPB.Enabled = False
CP1.Enabled = False
CP2.Enabled = False
CP3.Enabled = False
CP4.Enabled = False
CP5.Enabled = False
Aceptar.Enabled = False
Else: Luz.Enabled = True
CSubs.Enabled = True
CPB.Enabled = True
CP1.Enabled = True
CP2.Enabled = True
CP3.Enabled = True
CP4.Enabled = True
CP5.Enabled = True
Aceptar.Enabled = True
End If
End Sub

Private Sub Piso1_Click()
Contador3.Caption = "Nº:"
C3.Caption = C3.Caption + 1
Ascensor.Top = 5040
Visor1.Caption = "P1"
Visor2.Caption = "P1"
Visor3.Caption = "P1"
Visor4.Caption = "P1"
Visor5.Caption = "P1"
Visor6.Caption = "P1"
Visor7.Caption = "P1"
VisorC.Caption = "Piso 1"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub Piso2_Click()
Contador4.Caption = "Nº:"
C4.Caption = C4.Caption + 1
Ascensor.Top = 4080
Visor1.Caption = "P2"
Visor2.Caption = "P2"
Visor3.Caption = "P2"
Visor4.Caption = "P2"
Visor5.Caption = "P2"
Visor6.Caption = "P2"
Visor7.Caption = "P2"
VisorC.Caption = "Piso 2"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub Piso3_Click()
Contador5.Caption = "Nº:"
C5.Caption = C5.Caption + 1
Ascensor.Top = 3120
Visor1.Caption = "P3"
Visor2.Caption = "P3"
Visor3.Caption = "P3"
Visor4.Caption = "P3"
Visor5.Caption = "P3"
Visor6.Caption = "P3"
Visor7.Caption = "P3"
VisorC.Caption = "Piso 3"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub Piso4_Click()
Contador6.Caption = "Nº:"
C6.Caption = C6.Caption + 1
Ascensor.Top = 2160
Visor1.Caption = "P4"
Visor2.Caption = "P4"
Visor3.Caption = "P4"
Visor4.Caption = "P4"
Visor5.Caption = "P4"
Visor6.Caption = "P4"
Visor7.Caption = "P4"
VisorC.Caption = "Piso 4"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub Piso5_Click()
Contraseña.Enabled = True
Contraseña.Text = ""
End Sub

Private Sub PlantaB_Click()
Contador2.Caption = "Nº:"
C2.Caption = C2.Caption + 1
Ascensor.Top = 6000
Visor1.Caption = "PB"
Visor2.Caption = "PB"
Visor3.Caption = "PB"
Visor4.Caption = "PB"
Visor5.Caption = "PB"
Visor6.Caption = "PB"
Visor7.Caption = "PB"
VisorC.Caption = "Planta Baja"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub

Private Sub Subs_Click()
C1.Caption = C1.Caption + 1
Contador1.Caption = "Nº:"
Ascensor.Top = 6960
Visor1.Caption = "SS"
Visor2.Caption = "SS"
Visor3.Caption = "SS"
Visor4.Caption = "SS"
Visor5.Caption = "SS"
Visor6.Caption = "SS"
Visor7.Caption = "SS"
VisorC.Caption = "SubSuelo"
Contraseña.Enabled = False
Contraseña.Text = ""
End Sub