Ascensor 2 (por Iaru)

Private Sub L1_Click()
ascensor.Top = 4680
End Sub

Private Sub L2_Click()
ascensor.Top = 3720
End Sub

Private Sub L3_Click()
ascensor.Top = 2640
End Sub

Private Sub L4_Click()
ascensor.Top = 1560
End Sub

Private Sub L5_Click()
If contraseña = "hola" Then
ascensor.Top = 480
End If
End Sub



Private Sub llamar1_Click()
ascensor.Top = 4680
End Sub

Private Sub llamarcinco_Click()
If contraseña = "hola" Then
ascensor.Top = 480
End If
End Sub

Private Sub llamarcuatro_Click()
ascensor.Top = 1560
End Sub

Private Sub llamardos_Click()
ascensor.Top = 3720
End Sub


Private Sub llamarpb_Click()
ascensor.Top = 5640
End Sub

Private Sub llamarss_Click()
ascensor.Top = 6480
End Sub

Private Sub llamartres_Click()
ascensor.Top = 2640
End Sub

Private Sub LPB_Click()
ascensor.Top = 5640
End Sub

Private Sub LSS_Click()
ascensor.Top = 6480
End Sub

Private Sub luz_Click()
If ascensor.FillColor = vbBlack Then
ascensor.FillColor = vbWhite
Else
If ascensor.FillColor = vbWhite Then
ascensor.FillColor = vbBlack

End If

End If
End Sub


Private Sub stop_Click()
If llamar1.Enabled = True Then
llamar1.Enabled = False
llamardos.Enabled = False
llamartres.Enabled = False
llamarcuatro.Enabled = False
llamarcinco.Enabled = False
llamarss.Enabled = False
llamarpb.Enabled = False
L1.Enabled = False
L2.Enabled = False
L3.Enabled = False
L4.Enabled = False
L5.Enabled = False
LPB.Enabled = False
LSS.Enabled = False
luz.Enabled = False
ll1.Enabled = False
ll2.Enabled = False
ll3.Enabled = False
ll4.Enabled = False
ll5.Enabled = False
llss.Enabled = False
llpb.Enabled = False
Else
llamar1.Enabled = True
llamardos.Enabled = True
llamartres.Enabled = True
llamarcuatro.Enabled = True
llamarcinco.Enabled = True
llamarss.Enabled = True
llamarpb.Enabled = True
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LPB.Enabled = True
LSS.Enabled = True
luz.Enabled = True
ll1.Enabled = True
ll2.Enabled = True
ll3.Enabled = True
ll4.Enabled = True
ll5.Enabled = True
llss.Enabled = True
llpb.Enabled = True
End If

End Sub