miércoles, 15 de octubre de 2008

ascensor (Por Dani B.)

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

No hay comentarios: