Ascensor (por Pau)

Private Sub cinco_Click()
ascen.Top = 480
numero.Caption = "5"
nrito(0) = "5"
nrito(1) = "5"
nrito(2) = "5"
nrito(3) = "5"
nrito(5) = "5"
nrito(6) = "5"
nrito(7) = "5"
ccinco(0).Caption = Val(ccinco(0).Caption) + 1
cuenta.Caption = Val(cuenta.Caption) + 1

End Sub

Private Sub cincoo_Click(Index As Integer)
ascen.Top = 480
numero.Caption = "5"
nrito(0) = "5"
nrito(1) = "5"
nrito(2) = "5"
nrito(3) = "5"
nrito(5) = "5"
nrito(6) = "5"
nrito(7) = "5"
ccinco(0).Caption = Val(ccinco(0).Caption) + 1
cuenta.Caption = Val(cuenta.Caption) + 1
End Sub

Private Sub cuatro_Click()
ascen.Top = 1320
nrito(0) = "4"
numero.Caption = "4"
nrito(1) = "4"
nrito(2) = "4"
nrito(3) = "4"
nrito(5) = "4"
nrito(6) = "4"
nrito(7) = "4"
ccuatro(8).Caption = Val(ccuatro(8).Caption) + 1
cuenta.Caption = Val(cuenta.Caption) + 1
End Sub

Private Sub cuatroo_Click(Index As Integer)
ascen.Top = 1320
nrito(0) = "4"
numero.Caption = "4"
nrito(1) = "4"
nrito(2) = "4"
nrito(3) = "4"
nrito(5) = "4"
nrito(6) = "4"
nrito(7) = "4"
ccuatro(8).Caption = Val(ccuatro(8).Caption) + 1
cuenta.Caption = Val(cuenta.Caption) + 1
End Sub

Private Sub dos_Click()
ascen.Top = 3000
numero.Caption = "2"
nrito(0) = "2"
nrito(1) = "2"
nrito(2) = "2"
nrito(3) = "2"
nrito(5) = "2"
nrito(6) = "2"
nrito(7) = "2"
cdos(6).Caption = Val(cdos(6).Caption) + 1
cuenta.Caption = Val(cuenta.Caption) + 1
End Sub

Private Sub doss_Click(Index As Integer)
ascen.Top = 3000
numero.Caption = "2"
nrito(0) = "2"
nrito(1) = "2"
nrito(2) = "2"
nrito(3) = "2"
nrito(5) = "2"
nrito(6) = "2"
nrito(7) = "2"
cdos(6).Caption = Val(cdos(6).Caption) + 1
cuenta.Caption = Val(cuenta.Caption) + 1
End Sub

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

Private Sub pb_Click()
ascen.Top = 4680
nrito(0) = "PB"
nrito(1) = "PB"
nrito(2) = "PB"
nrito(3) = "PB"
nrito(5) = "PB"
nrito(6) = "PB"
nrito(7) = "PB"
numero.Caption = "PB"
cpb(4).Caption = Val(cpb(4).Caption) + 1
cuenta.Caption = Val(cuenta.Caption) + 1
End Sub

Private Sub pbb_Click(Index As Integer)
ascen.Top = 4680
nrito(0) = "PB"
nrito(1) = "PB"
nrito(2) = "PB"
nrito(3) = "PB"
nrito(5) = "PB"
nrito(6) = "PB"
nrito(7) = "PB"
numero.Caption = "PB"
cpb(4).Caption = Val(cpb(4).Caption) + 1
cuenta.Caption = Val(cuenta.Caption) + 1
End Sub

Private Sub sss_Click(Index As Integer)
ascen.Top = 5520
nrito(0) = "SS"
nrito(1) = "SS"
nrito(2) = "SS"
nrito(3) = "SS"
nrito(5) = "SS"
nrito(6) = "SS"
nrito(7) = "SS"
numero.Caption = "SS"
css(3).Caption = Val(css(3).Caption) + 1
cuenta.Caption = Val(cuenta.Caption) + 1
End Sub


Private Sub stop_Click()
If cuatro.Enabled = True Then
cinco.Enabled = False
cuatro.Enabled = False
tres.Enabled = False
dos.Enabled = False
uno.Enabled = False
pb.Enabled = False
subsuelo.Enabled = False
cincoo(0).Enabled = False
cuatroo(9).Enabled = False
tress(8).Enabled = False
doss(7).Enabled = False
unoo(6).Enabled = False
pbb(5).Enabled = False
sss(4).Enabled = False
luz.Enabled = False
Else
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
subsuelo.Enabled = True
cincoo(0).Enabled = True
cuatroo(9).Enabled = True
tress(8).Enabled = True
doss(7).Enabled = True
unoo(6).Enabled = True
pbb(5).Enabled = True
sss(4).Enabled = True
luz.Enabled = True
End If
End Sub


Private Sub subsuelo_Click()
ascen.Top = 5520
nrito(0) = "SS"
nrito(1) = "SS"
nrito(2) = "SS"
nrito(3) = "SS"
nrito(5) = "SS"
nrito(6) = "SS"
nrito(7) = "SS"
numero.Caption = "SS"
css(3).Caption = Val(css(3).Caption) + 1
cuenta.Caption = Val(cuenta.Caption) + 1
End Sub

Private Sub tres_Click()
ascen.Top = 2160
numero.Caption = "3"
nrito(0) = "3"
nrito(1) = "3"
nrito(2) = "3"
nrito(3) = "3"
nrito(5) = "3"
nrito(6) = "3"
nrito(7) = "3"
ctres(7).Caption = Val(ctres(7).Caption) + 1
cuenta.Caption = Val(cuenta.Caption) + 1
End Sub

Private Sub tress_Click(Index As Integer)
ascen.Top = 2160
numero.Caption = "3"
nrito(0) = "3"
nrito(1) = "3"
nrito(2) = "3"
nrito(3) = "3"
nrito(5) = "3"
nrito(6) = "3"
nrito(7) = "3"
ctres(7).Caption = Val(ctres(7).Caption) + 1
cuenta.Caption = Val(cuenta.Caption) + 1
End Sub

Private Sub uno_Click()
ascen.Top = 3840
nrito(0) = "1"
nrito(1) = "1"
nrito(2) = "1"
nrito(3) = "1"
nrito(5) = "1"
nrito(6) = "1"
nrito(7) = "1"
numero.Caption = "1"
cuno(5).Caption = Val(cuno(5).Caption) + 1
cuenta.Caption = Val(cuenta.Caption) + 1
End Sub

Private Sub unoo_Click(Index As Integer)
ascen.Top = 3840
nrito(0) = "1"
nrito(1) = "1"
nrito(2) = "1"
nrito(3) = "1"
nrito(5) = "1"
nrito(6) = "1"
nrito(7) = "1"
numero.Caption = "1"
cuno(5).Caption = Val(cuno(5).Caption) + 1
cuenta.Caption = Val(cuenta.Caption) + 1
End Sub