Ascensor 2 (Melu)

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