mis ascensores

Private Sub Label1_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub Command3_Click()
End Sub
Private Sub apagar_Click()x1.Enabled = Falsexsub.Enabled = Falsexpb.Enabled = Falsex2.Enabled = Falsex3.Enabled = Falsex4.Enabled = Falsex5.Enabled = Falsebot1.Enabled = Falsesubsuelo.Enabled = Falsebot2.Enabled = Falsebot3.Enabled = Falsebot4.Enabled = Falsebot5.Enabled = Falseluz.Enabled = Falseplantabaja.Enabled = Falseascensor.BackColor = vbBlack
End Sub
Private Sub bot1_Click()ascensor.Top = 6840numsub.Caption = "1"numpb.Caption = "1"num1.Caption = "1"num2.Caption = "1"num3.Caption = "1"num4.Caption = "1"num5.Caption = "1"End Sub
Private Sub bot2_Click()ascensor.Top = 5640numsub.Caption = "2"numpb.Caption = "2"num1.Caption = "2"num2.Caption = "2"num3.Caption = "2"num4.Caption = "2"num5.Caption = "2"End Sub
Private Sub bot3_Click()ascensor.Top = 4440numsub.Caption = "3"numpb.Caption = "3"num1.Caption = "3"num2.Caption = "3"num3.Caption = "3"num4.Caption = "3"num5.Caption = "3"End Sub
Private Sub bot4_Click()ascensor.Top = 3240numsub.Caption = "4"numpb.Caption = "4"num1.Caption = "4"num2.Caption = "4"num3.Caption = "4"num4.Caption = "4"num5.Caption = "4"End Sub
Private Sub bot5_Click()contrasenia.Visible = Trueenter.Visible = True


End Sub
Private Sub enter_Click()If contrasenia = "sofiyflor" Thenascensor.Top = 2040End If
If ascensor.Top = 2040 Thenenter.Visible = Falsecontrasenia.Visible = FalseEnd Ifcontrasenia.Text = ""numsub.Caption = "5"numpb.Caption = "5"num1.Caption = "5"num2.Caption = "5"num3.Caption = "5"num4.Caption = "5"num5.Caption = "5"End Sub
Private Sub luz_Click()ascensor.BackColor = vbYellowEnd Sub
Private Sub numsub_Click()If ascensor.Top = 9120 Thennumsub.BackColor = vbRedEnd If
End Sub
Private Sub PLANTABAJA_Click()ascensor.Top = 8040numsub.Caption = "pb"numpb.Caption = "pb"num1.Caption = "pb"num2.Caption = "pb"num3.Caption = "pb"num4.Caption = "pb"num5.Caption = "pb"End Sub
Private Sub prender_Click()x1.Enabled = Truexsub.Enabled = Truexpb.Enabled = Truex2.Enabled = Truex3.Enabled = Truex4.Enabled = Truex5.Enabled = Truebot1.Enabled = Truesubsuelo.Enabled = Truebot2.Enabled = Truebot3.Enabled = Truebot4.Enabled = Truebot5.Enabled = Trueluz.Enabled = Trueplantabaja.Enabled = Trueascensor.BackColor = vbRed
End Sub
Private Sub subsuelo_Click()ascensor.Top = 9120numsub.Caption = "sub"numpb.Caption = "sub"num1.Caption = "sub"num2.Caption = "sub"num3.Caption = "sub"num4.Caption = "sub"num5.Caption = "sub"End Sub
Private Sub x1_Click()ascensor.Top = 6840numsub.Caption = "1"numpb.Caption = "1"num1.Caption = "1"num2.Caption = "1"num3.Caption = "1"num4.Caption = "1"num5.Caption = "1"End Sub
Private Sub x2_Click()ascensor.Top = 5640numsub.Caption = "2"numpb.Caption = "2"num1.Caption = "2"num2.Caption = "2"num3.Caption = "2"num4.Caption = "2"num5.Caption = "2"End Sub
Private Sub x3_Click()ascensor.Top = 4440numsub.Caption = "3"numpb.Caption = "3"num1.Caption = "3"num2.Caption = "3"num3.Caption = "3"num4.Caption = "3"num5.Caption = "3"End Sub
Private Sub x4_Click()ascensor.Top = 3240numsub.Caption = "4"numpb.Caption = "4"num1.Caption = "4"num2.Caption = "4"num3.Caption = "4"num4.Caption = "4"num5.Caption = "4"End Sub
Private Sub x5_Click()ascensor.Top = 2040numsub.Caption = "5"numpb.Caption = "5"num1.Caption = "5"num2.Caption = "5"num3.Caption = "5"num4.Caption = "5"num5.Caption = "5"End Sub
Private Sub xpb_Click()ascensor.Top = 8040numsub.Caption = "pb"numpb.Caption = "pb"num1.Caption = "pb"num2.Caption = "pb"num3.Caption = "pb"num4.Caption = "pb"num5.Caption = "pb"End Sub
Private Sub xsub_Click()ascensor.Top = 9120numsub.Caption = "sub"numpb.Caption = "sub"num1.Caption = "sub"num2.Caption = "sub"num3.Caption = "sub"num4.Caption = "sub"num5.Caption = "sub"
End Sub