Visual Basic Ascensor (Ariel .M.)

Private Sub cinco_Click()
Text1.Text = ""
Text1.Visible = True
Label1.Visible = True
Command1.Visible = True
End Sub

Private Sub boton5_Click()
Text1.Text = ""
Text1.Visible = True
Label1.Visible = True
Command1.Visible = True
End Sub

Private Sub boton4_Click()
ascensor.Top = 2045
End Sub

Private Sub boton2_Click()
ascensor.Top = 3725
End Sub

Private Sub botonp_Click()
ascensor.Top = 5400
End Sub

Private Sub botons_Click()
ascensor.Top = 6230
End Sub

Private Sub boton3_Click()
ascensor.Top = 2880
End Sub

Private Sub boton1_Click()
ascensor.Top = 4565
End Sub

Private Sub Command1_Click()
If Text1.Text = "plipluncho" Then
ascensor.Top = 1200
Text1.Visible = False
Label1.Visible = False
Command1.Visible = False
End If

End Sub

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

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

Private Sub planta_Click()
ascensor.Top = 5400
End Sub

Private Sub sub_Click()
ascensor.Top = 6230
End Sub

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

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