Ascensor 2 (por Daniel)

Private Sub L1_Click()ascensor.Top = 4680End Sub
Private Sub L2_Click()ascensor.Top = 3720End Sub
Private Sub L3_Click()ascensor.Top = 2640End Sub
Private Sub L4_Click()ascensor.Top = 1560End Sub
Private Sub L5_Click()If contraseña = "hola" Thenascensor.Top = 480End IfEnd Sub

Private Sub llamar1_Click()ascensor.Top = 4680End Sub
Private Sub llamarcinco_Click()If contraseña = "hola" Thenascensor.Top = 480End IfEnd Sub
Private Sub llamarcuatro_Click()ascensor.Top = 1560End Sub
Private Sub llamardos_Click()ascensor.Top = 3720End Sub
Private Sub llamarpb_Click()ascensor.Top = 5640End Sub
Private Sub llamarss_Click()ascensor.Top = 6480End Sub
Private Sub llamartres_Click()ascensor.Top = 2640End Sub
Private Sub LPB_Click()ascensor.Top = 5640End Sub
Private Sub LSS_Click()ascensor.Top = 6480End Sub
Private Sub luz_Click()If ascensor.FillColor = vbBlack Thenascensor.FillColor = vbWhiteElseIf ascensor.FillColor = vbWhite Thenascensor.FillColor = vbBlack
End If
End IfEnd Sub
Private Sub stop_Click()If llamar1.Enabled = True Thenllamar1.Enabled = Falsellamardos.Enabled = Falsellamartres.Enabled = Falsellamarcuatro.Enabled = Falsellamarcinco.Enabled = Falsellamarss.Enabled = Falsellamarpb.Enabled = FalseL1.Enabled = FalseL2.Enabled = FalseL3.Enabled = FalseL4.Enabled = FalseL5.Enabled = FalseLPB.Enabled = FalseLSS.Enabled = Falseluz.Enabled = Falsell1.Enabled = Falsell2.Enabled = Falsell3.Enabled = Falsell4.Enabled = Falsell5.Enabled = Falsellss.Enabled = Falsellpb.Enabled = FalseElsellamar1.Enabled = Truellamardos.Enabled = Truellamartres.Enabled = Truellamarcuatro.Enabled = Truellamarcinco.Enabled = Truellamarss.Enabled = Truellamarpb.Enabled = TrueL1.Enabled = TrueL2.Enabled = TrueL3.Enabled = TrueL4.Enabled = TrueL5.Enabled = TrueLPB.Enabled = TrueLSS.Enabled = Trueluz.Enabled = Truell1.Enabled = Truell2.Enabled = Truell3.Enabled = Truell4.Enabled = Truell5.Enabled = Truellss.Enabled = Truellpb.Enabled = TrueEnd If
End Sub

Ascensor 2 (Melu)

Private Sub cinco_Click()
asce.Top = 480
End Sub

Private Sub cuatro_Click()
asce.Top = 1080
End Sub

Private Sub luz_Click()
If asce.BackColor = vbBlack Then
asce.BackColor = vbWhite
End If
End Sub

Private Sub pb_Click()
asce.Top = 3480
End Sub

Private Sub ss_Click()
asce.Top = 4080
End Sub

Private Sub dos_Click()
asce.Top = 2280
End Sub

Private Sub tres_Click()
asce.Top = 1680
End Sub

Private Sub uno_Click()
asce.Top = 2880
End Sub

Ascensor 2 (por Galu)

Private Sub cuatro_Click()
ascensor.Top = 1560
End Sub
Private Sub dos_Click()
ascensor.Top = 3240
End Sub
Private Sub llcinco_Click()
ascensor.Top = 720
End Sub
Private Sub llcuatro_Click()
ascensor.Top = 1560
End Sub
Private Sub lldos_Click()
ascensor.Top = 3240
End Sub
Private Sub llpb_Click()
ascensor.Top = 4920
End Sub
Private Sub llss_Click()
ascensor.Top = 5760
End Sub
Private Sub lltres_Click()
ascensor.Top = 2400
End Sub
Private Sub lluno_Click()
ascensor.Top = 4080
End Sub
Private Sub luz_Click()
ascensor.BackColor = vbYellow
End Sub
Private Sub pb_Click()
ascensor.Top = 4920
End Sub
Private Sub ss_Click()
ascensor.Top = 5760
End Sub
Private Sub stop_Click()
If uno.Enabled = False And dos.Enabled = False And tres.Enabled = False And cuatro.Enabled = False and
cinco.Enabled = False Then
uno.Enabled = True
End If


cinco.Enabled = False
ss.Enabled = False
pb.Enabled = False
cuentapisos.Caption
lluno.Enabled = False
lldos.Enabled = False
lltres.Enabled = False
llcuatro.Enabled = False
llcinco.Enabled = False
llss.Enabled = False
llpb.Enabled = False
End Sub
Private Sub tres_Click()
ascensor.Top = 2400
End Sub
Private Sub uno_Click()
ascensor.Top = 4080
End Sub