Apunte de la clase del primero de noviembre

Private Sub cuatro_Click()If contraseña.Text = "chinito" Thenascensor.Top = 856
contador4.Caption = Val(contador4.Caption) + 1Else
contador4.Caption = Val(contador4.Caption) + 0End IfIf contraseña.Visible = False Thencontraseña.Visible = TrueElsecontraseña.Visible = FalseEnd IfIf ok.Visible = False Thenok.Visible = TrueElseok.Visible = FalseEnd If

End Sub

Private Sub cuatrodos_Click()If contraseña.Text = "chinito" Thenascensor.Top = 856
contador4.Caption = Val(contador4.Caption) + 1Else
contador4.Caption = Val(contador4.Caption) + 0End IfIf contraseña.Visible = False Thencontraseña.Visible = TrueElsecontraseña.Visible = FalseEnd IfIf ok.Visible = False Thenok.Visible = TrueElseok.Visible = FalseEnd If
End Sub

Private Sub luz_Click()If ascensor.BackColor = vbBlack Thenascensor.BackColor = vbYellowElseascensor.BackColor = vbBlackEnd If
End Sub