Ascensor (por Galu)

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

Private Sub dos_Click()
ascensor.Top = 3240
End Sub

Private Sub tres_Click()
ascensor.Top = 2400
End Sub

Private Sub uno_Click()
ascensor.Top = 4080
End Sub