Ascensor (por alan)

Private Sub Label2_Click()
Asensor.Top = 4560
End Sub

Private Sub Label7_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub L1_Click()
Asensor.Top = 3120
L1.Enabled = False
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LSS.Enabled = True
LPB.Enabled = True
Llamar1.Enabled = False
Llamar2.Enabled = True
Llamar3.Enabled = True
Llamar4.Enabled = True
Llamar5.Enabled = True
LlamarSS.Enabled = True
LlamarPB.Enabled = True
End Sub

Private Sub L2_Click()
Asensor.Top = 2400
L1.Enabled = True
L2.Enabled = False
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LSS.Enabled = True
LPB.Enabled = True
Llamar1.Enabled = True
Llamar2.Enabled = False
Llamar3.Enabled = True
Llamar4.Enabled = True
Llamar5.Enabled = True
LlamarSS.Enabled = True
LlamarPB.Enabled = True
End Sub

Private Sub L3_Click()
Asensor.Top = 1680
L1.Enabled = True
L2.Enabled = True
L3.Enabled = False
L4.Enabled = True
L5.Enabled = True
LSS.Enabled = True
LPB.Enabled = True
Llamar1.Enabled = True
Llamar2.Enabled = True
Llamar3.Enabled = False
Llamar4.Enabled = True
Llamar5.Enabled = True
LlamarSS.Enabled = True
LlamarPB.Enabled = True
End Sub

Private Sub L4_Click()
Asensor.Top = 960
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = False
L5.Enabled = True
LSS.Enabled = True
LPB.Enabled = True
Llamar1.Enabled = True
Llamar2.Enabled = True
Llamar3.Enabled = True
Llamar4.Enabled = False
Llamar5.Enabled = True
LlamarSS.Enabled = True
LlamarPB.Enabled = True
End Sub

Private Sub L5_Click()
Asensor.Top = 240
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = False
LSS.Enabled = True
LPB.Enabled = True
Llamar1.Enabled = True
Llamar2.Enabled = True
Llamar3.Enabled = True
Llamar4.Enabled = True
Llamar5.Enabled = False
LlamarSS.Enabled = True
LlamarPB.Enabled = True
End Sub

Private Sub Llamar1_Click()
Asensor.Top = 3120
L1.Enabled = False
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LSS.Enabled = True
LPB.Enabled = True
Llamar1.Enabled = False
Llamar2.Enabled = True
Llamar3.Enabled = True
Llamar4.Enabled = True
Llamar5.Enabled = True
LlamarSS.Enabled = True
LlamarPB.Enabled = True
End Sub

Private Sub Llamar2_Click()
Asensor.Top = 2400
L1.Enabled = True
L2.Enabled = False
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LSS.Enabled = True
LPB.Enabled = True
Llamar1.Enabled = True
Llamar2.Enabled = False
Llamar3.Enabled = True
Llamar4.Enabled = True
Llamar5.Enabled = True
LlamarSS.Enabled = True
LlamarPB.Enabled = True
End Sub

Private Sub Llamar3_Click()
Asensor.Top = 1680
L1.Enabled = True
L2.Enabled = True
L3.Enabled = False
L4.Enabled = True
L5.Enabled = True
LSS.Enabled = True
LPB.Enabled = True
Llamar1.Enabled = True
Llamar2.Enabled = True
Llamar3.Enabled = False
Llamar4.Enabled = True
Llamar5.Enabled = True
LlamarSS.Enabled = True
LlamarPB.Enabled = True
End Sub

Private Sub Llamar4_Click()
Asensor.Top = 960
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = False
L5.Enabled = True
LSS.Enabled = True
LPB.Enabled = True
Llamar1.Enabled = True
Llamar2.Enabled = True
Llamar3.Enabled = True
Llamar4.Enabled = False
Llamar5.Enabled = True
LlamarSS.Enabled = True
LlamarPB.Enabled = True
End Sub

Private Sub Llamar5_Click()
Asensor.Top = 240
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = False
LSS.Enabled = True
LPB.Enabled = True
Llamar1.Enabled = True
Llamar2.Enabled = True
Llamar3.Enabled = True
Llamar4.Enabled = True
Llamar5.Enabled = False
LlamarSS.Enabled = True
LlamarPB.Enabled = True
End Sub

Private Sub LlamarPB_Click()
Asensor.Top = 3840
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LSS.Enabled = True
LPB.Enabled = False
Llamar1.Enabled = True
Llamar2.Enabled = True
Llamar3.Enabled = True
Llamar4.Enabled = True
Llamar5.Enabled = True
LlamarSS.Enabled = True
LlamarPB.Enabled = False
End Sub

Private Sub LlamarSS_Click()
Asensor.Top = 4560
Asensor.Top = 4560
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LSS.Enabled = False
LPB.Enabled = True
Llamar1.Enabled = True
Llamar2.Enabled = True
Llamar3.Enabled = True
Llamar4.Enabled = True
Llamar5.Enabled = True
LlamarSS.Enabled = False
LlamarPB.Enabled = True
End Sub

Private Sub LPB_Click()
Asensor.Top = 3840
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LSS.Enabled = True
LPB.Enabled = False
Llamar1.Enabled = True
Llamar2.Enabled = True
Llamar3.Enabled = True
Llamar4.Enabled = True
Llamar5.Enabled = True
LlamarSS.Enabled = True
LlamarPB.Enabled = False
End Sub

Private Sub LSS_Click()
Asensor.Top = 4560
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LSS.Enabled = False
LPB.Enabled = True
Llamar1.Enabled = True
Llamar2.Enabled = True
Llamar3.Enabled = True
Llamar4.Enabled = True
Llamar5.Enabled = True
LlamarSS.Enabled = False
LlamarPB.Enabled = True
End Sub

Private Sub luz_Click()
If Asensor.BackColor = vbYellow Then
Asensor.BackColor = vbBlack
Else
Asensor.BackColor = vbYellow
End If
End Sub

Private Sub stop_Click()
If Llamar1.Enabled = True Then
Llamar1.Enabled = False
Llamar2.Enabled = False
Llamar3.Enabled = False
Llamar4.Enabled = False
Llamar5.Enabled = False
LlamarPB.Enabled = False
LlamarSS.Enabled = False
L1.Enabled = False
L2.Enabled = False
L3.Enabled = False
L4.Enabled = False
L5.Enabled = False
LSS.Enabled = False
LPB.Enabled = False
luz.Enabled = False
Else
Llamar1.Enabled = True
Llamar2.Enabled = True
Llamar3.Enabled = True
Llamar4.Enabled = True
Llamar5.Enabled = True
LlamarPB.Enabled = True
LlamarSS.Enabled = True
L1.Enabled = True
L2.Enabled = True
L3.Enabled = True
L4.Enabled = True
L5.Enabled = True
LSS.Enabled = True
LPB.Enabled = True
luz.Enabled = True
End If
End Sub