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
Suscribirse a:
Enviar comentarios (Atom)
No hay comentarios:
Publicar un comentario