avance del acensor por florencia

Private Sub Command5_Click()
cero.Top = 840
End Sub
Private Sub alarma_Click()
If alarmacolor.Visible = False Then
alarmacolor.BackColor = vbRed
alarmacolor.Caption = "Danger"
Else
alarmacolor.Visible = True
alarma.BackColor = vbButtonFace
End If
End Sub
Private Sub cero_Click(Index As Integer)
acensor.Top = 3360
End Sub
Private Sub cerocero_Click()
acensor.Top = 3360
End Sub
Private Sub Command6_Click()
acensor.Top = 3960
End Sub
Private Sub cuatro_Click(Index As Integer)
acensor.Top = 960
End Sub
Private Sub ceroo_Click()
acensor.Top = 3360
End Sub
Private Sub cuatrocuatro_Click()
acensor.Top = 960
End Sub
Private Sub dos_Click(Index As Integer)
acensor.Top = 2160
End Sub
Private Sub cuatroo_Click()
acensor.Top = 960
End Sub
Private Sub dosdos_Click()
acensor.Top = 2760
End Sub
Private Sub doss_Click()
acensor.Top = 2160
End Sub
Private Sub luz_Click()
If acensor.FillColor = &H80000002 Then
acensor.FillColor = &HFFFF&
Else
acensor.FillColor = &H80000002
End If
End Sub
Private Sub menosuno_Click()
acensor.Top = 3960
End Sub
Private Sub menosunomenosuno_Click()
acensor.Top = 3960
menosunomenosuno.Enabled = True
End Sub
Private Sub menosunoo_Click()
acensor.Top = 3960
End Sub
Private Sub parar_Click()
If acensor.FillColor = &H80000002 Then
acensor.FillColor = vbBlack
menosunomenosuno.Enabled = False
unouno.Enabled = False
dosdos.Enabled = False
trestres.Enabled = False
cuatrocuatro.Enabled = False
alarma.Enabled = False
luz.Enabled = False
cerocero.Enabled = False
Else
acensor.FillColor = &H80000002
menosunomenosuno.Enabled = True
unouno.Enabled = True
dosdos.Enabled = True
trestres.Enabled = True
cuatrocuatro.Enabled = True
alarma.Enabled = True
luz.Enabled = True
cerocero.Enabled = True
End If
End Sub
Private Sub tres_Click(Index As Integer)
acensor.Top = 1560
End Sub
Private Sub uno_Click(Index As Integer)
acensor.Top = 2760
End Sub
Private Sub unoc_Click(Index As Integer)
End Sub
Private Sub tress_Click()
acensor.Top = 1560
End Sub
Private Sub trestres_Click()
acensor.Top = 1560
End Sub
private Sub unocabina_Click()
acensor.Top = 2760
End Sub
Private Sub unoo_Click()
acensor.Top = 2760
End Sub
Private Sub unouno_Click()
acensor.Top = 3480
End Sub