ascensor 2 (por cami)

Private Sub cinco_Click()
asce.Top = 480
End Sub
Private Sub cuatro_Click()
asce.Top = 1080
End Sub
Private Sub luz_Click()
If asce.BackColor = vbBlack Then
asce.BackColor = vbWhite
End If
End Sub
Private Sub pb_Click()
asce.Top = 3480
End Sub
Private Sub ss_Click()
asce.Top = 4080
End Sub
Private Sub dos_Click()
asce.Top = 2280
End Sub
Private Sub tres_Click()
asce.Top = 1680
End Sub
Private Sub uno_Click()
asce.Top = 2880
End Sub