Codigo de ascensor:
Private Sub luz_Click()asensor.BackColor = vbRedEnd SubPrivate Sub pisocuatro_Click()asensor.Top = 840End SubPrivate Sub pisodos_Click()asensor.Top = 2280End SubPrivate Sub pisotres_Click()asensor.Top = 1560End SubPrivate Sub parar_Click()Private Sub pisouno_Click()asensor.Top = 3000End SubPrivate Sub plantabaja_Click()asensor.Top = 3720End SubPrivate Sub subsuelo_Click()asensor.Top = 4440End Sub
