Ascensor final (por Anita)

Private Sub cinco_Click()
ascensor.Top = 480
numero.Caption = "5"
cant5.Caption = Val(cant5.Caption) + 1
If llamar5.Caption = llamar5.Caption Then
llamar5.Enabled = False
cinco.Enabled = False
End If
llamar4.Enabled = True
cuatro.Enabled = True
llamarss.Enabled = True
ss.Enabled = True
llamarpb.Enabled = True
pb.Enabled = True
llamar1.Enabled = True
uno.Enabled = True
llamar2.Enabled = True
dos.Enabled = True
llamar3.Enabled = True
tres.Enabled = True

End Sub

Private Sub cuatro_Click()
ascensor.Top = 1080
numero.Caption = "4"
cant4.Caption = Val(cant4.Caption) + 1
If llamar4.Caption = llamar4.Caption Then
llamar4.Enabled = False
cuatro.Enabled = False
End If
If cuatro.Caption = cuatro.Caption Then
llamar4.Caption = llamar4.Caption
cuatro.Enabled = False
llamar4.Enabled = False
End If
llamar5.Enabled = True
cinco.Enabled = True
llamarss.Enabled = True
ss.Enabled = True
llamarpb.Enabled = True
pb.Enabled = True
llamar1.Enabled = True
uno.Enabled = True
llamar2.Enabled = True
dos.Enabled = True
llamar3.Enabled = True
tres.Enabled = True
llamar5.Enabled = True
cinco.Enabled = True

End Sub

Private Sub dos_Click()
ascensor.Top = 2280
numero.Caption = "2"
cant2.Caption = Val(cant2.Caption) + 1
llamar5.Enabled = True
cinco.Enabled = True
llamar4.Enabled = True
cuatro.Enabled = True
llamarss.Enabled = True
ss.Enabled = True
llamarpb.Enabled = True
pb.Enabled = True
llamar1.Enabled = True
uno.Enabled = True
llamar3.Enabled = True
tres.Enabled = True

End Sub

Private Sub llamar1_Click()
ascensor.Top = 2880
numero.Caption = "1"
cant1.Caption = Val(cant1.Caption) + 1
llamar5.Enabled = True
cinco.Enabled = True
llamar4.Enabled = True
cuatro.Enabled = True
llamarss.Enabled = True
ss.Enabled = True
llamarpb.Enabled = True
pb.Enabled = True
llamar2.Enabled = True
dos.Enabled = True
llamar3.Enabled = True
tres.Enabled = True
End Sub

Private Sub llamar2_Click()
ascensor.Top = 2280
numero.Caption = "2"
cant2.Caption = Val(cant2.Caption) + 1
llamar5.Enabled = True
cinco.Enabled = True
llamar4.Enabled = True
cuatro.Enabled = True
llamarss.Enabled = True
ss.Enabled = True
llamarpb.Enabled = True
pb.Enabled = True
llamar1.Enabled = True
uno.Enabled = True
llamar3.Enabled = True
tres.Enabled = True
End Sub

Private Sub llamar3_Click()
ascensor.Top = 1680
numero.Caption = "3"
cant3.Caption = Val(cant3.Caption) + 1
llamar5.Enabled = True
cinco.Enabled = True
llamar4.Enabled = True
cuatro.Enabled = True
llamar4.Enabled = True
cuatro.Enabled = True
llamarss.Enabled = True
ss.Enabled = True
llamarpb.Enabled = True
pb.Enabled = True
llamar1.Enabled = True
uno.Enabled = True
llamar2.Enabled = True
dos.Enabled = True
End Sub

Private Sub llamar4_Click()
ascensor.Top = 1080
numero.Caption = "4"
cant4.Caption = Val(cant4.Caption) + 1
piso5.Caption = "4"
llamar4.Enabled = False
cuatro.Enabled = False
llamarss.Enabled = True
ss.Enabled = True
llamarpb.Enabled = True
pb.Enabled = True
llamar1.Enabled = True
uno.Enabled = True
llamar2.Enabled = True
dos.Enabled = True
llamar3.Enabled = True
tres.Enabled = True
llamar5.Enabled = True
cinco.Enabled = True

End Sub

Private Sub llamar5_Click()
ascensor.Top = 480
numero.Caption = "5"
cant5.Caption = Val(cant5.Caption) + 1
piso5.Caption = "5"
If llamar5.Caption = llamar5.Caption Then
llamar5.Enabled = False
cinco.Enabled = False
llamar4.Enabled = True
cuatro.Enabled = True
End If
llamar4.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub llamarpb_Click()
pisopb.Caption = "pb"
ascensor.Top = 3480
numero.Caption = "PB"
cantpb.Caption = Val(cantpb.Caption) + 1
If llamar5.Caption = llamar5.Caption Then
llamarpb.Enabled = False
pb.Enabled = False
End If
llamar5.Enabled = True
cinco.Enabled = True
llamar4.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub llamarss_Click()
ascensor.Top = 4080
numero.Caption = "SS"
cantss.Caption = Val(cantss.Caption) + 1
pisoss.Caption = "ss"
llamar5.Enabled = True
cinco.Enabled = True
llamar4.Enabled = True
cuatro.Enabled = True
End Sub

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

Private Sub pb_Click()
ascensor.Top = 3480
numero.Caption = "PB"
cantpb.Caption = Val(cantpb.Caption) + 1
pisopb.Caption = "pb"
llamar5.Enabled = True
cinco.Enabled = True
llamar4.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub ss_Click()
ascensor.Top = 4080
numero.Caption = "SS"
cantss.Caption = Val(cantss.Caption) + 1
llamar5.Enabled = True
cinco.Enabled = True
llamar4.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub stop_Click()
If luz.Enabled Then
luz.Enabled = False
cinco.Enabled = False
cuatro.Enabled = False
tres.Enabled = False
dos.Enabled = False
uno.Enabled = False
pb.Enabled = False
ss.Enabled = False
llamarss.Enabled = False
llamarpb.Enabled = False
llamar1.Enabled = False
llamar2.Enabled = False
llamar3.Enabled = False
llamar4.Enabled = False
llamar5.Enabled = False
Else
luz.Enabled = True
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
ss.Enabled = True
llamarss.Enabled = True
llamarpb.Enabled = True
llamar1.Enabled = True
llamar2.Enabled = True
llamar3.Enabled = True
llamar4.Enabled = True
llamar5.Enabled = True
End If
End Sub

Private Sub tres_Click()
ascensor.Top = 1680
numero.Caption = "3"
cant3.Caption = Val(cant3.Caption) + 1
llamar5.Enabled = True
cinco.Enabled = True
llamar4.Enabled = True
cuatro.Enabled = True
End Sub

Private Sub uno_Click()
ascensor.Top = 2880
numero.Caption = "1"
cant1.Caption = Val(cant1.Caption) + 1
llamar5.Enabled = True
cinco.Enabled = True
llamar4.Enabled = True
cuatro.Enabled = True
End Sub