Hola que tal... me preguntaba si existe alguna forma para comprimir todo este codigo:
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox3.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox3.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button3.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox4.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox4.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button4.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox5.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox5.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button5.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox6.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox6.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button6.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox7.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox7.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button7.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox8.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox8.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button8.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox9.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox9.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button9.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox10.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox10.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button10.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox11.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox11.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button11.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox12.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox12.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button12.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox13.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox13.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button13.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox14.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox14.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button14.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox15.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox15.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button15.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox16.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox16.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button16.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox17.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox17.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button17.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox18.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox18.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button18.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox19.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox19.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button19.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox20.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox20.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button20.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox21.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox21.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button21.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox22.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox22.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button22.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox23.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox23.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button23.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox24.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox24.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button24.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox25.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox25.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button25.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox26.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox26.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button26.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox27.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox27.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button27.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox28.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox28.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button28.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If
la idea es metero en un ciclo for o while, si alguin sabe, agradezco mucho su ayuda. Gracias[/color][/color]