<div>Tengo este codigo</div>
<div>quisiera saber que funsion cumple cada apartado</div>
<div>y si es posible por que no me funciona uno de los formularios</div>
<div> </div>
<div>pues este es el error que me sale cuando le doy al formulario Juego_adivina</div>
<div> </div>
<div>Private Sub probar_Click()<br>x = x - 1<br>If x > 0 Then<br>    If mi_numero > adivina Then<br>    menor.Show</div>
<div>    Else<br>        If mi_numero < adivina Then<br>        mayor.Show<br>        Else<br>        <br>        felicidades.Show<br>        End If<br>    End If<br>Else<br>    intentos.Show<br>    mi_numero = ""<br>
    Randomize<br>    adivina = Int((50 - 1 + 1) * Rnd + 1)<br>    x = 5<br>End If</div>
<div>End Sub</div>
<div> </div>
<div> </div>
<p>Private Sub Command1_Click()<br>Form1.Hide<br>frmSplash.Show<br>mi_numero = ""<br>Randomize<br>adivina = Int((50 - 1 + 1) * Rnd + 1)<br>End Sub</p>
<p>Private Sub Form_Load()<br>Randomize<br>adivina = Int((50 - 1 + 1) * Rnd + 1)<br>x = 5<br>End Sub</p>
<p>Private Sub Label4_Click()</p>
<p>End Sub</p>
<p>Private Sub nuevo_Click()<br>Form1.Hide<br>frmSplash.Show<br>mi_numero = ""<br>Randomize<br>adivina = Int((50 - 1 + 1) * Rnd + 1)<br>End Sub</p>
<p>Private Sub probar_Click()<br>x = x - 1<br>If x > 0 Then<br>    If mi_numero > adivina Then<br>    menor.Show</p>
<p>    Else<br>        If mi_numero < adivina Then<br>        mayor.Show<br>        Else<br>        <br>        felicidades.Show<br>        End If<br>    End If<br>Else<br>    intentos.Show<br>    mi_numero = ""<br>
    Randomize<br>    adivina = Int((50 - 1 + 1) * Rnd + 1)<br>    x = 5<br>End If</p>
<p>End Sub</p>
<p>Private Sub salir_Click()<br>Resp = MsgBox(vbCrLf & "Confirma que desea salir?", vbQuestion + vbYesNo + vbDefaultButton2, "Salir")</p>
<p>If Resp = 6 Then</p>
<p>End</p>
<p>Else</p>
<p><br>End If</p>
<div><br>End Sub<br></div>
<div>Muchas gracias de antemano<br clear="all"><br>-- <br>Oscar Agustin Flores Arana.<br>Lima - Perú<br>Móvil Nextel 994122895<br>CD Nextel 412*2895<br>RPC Claro 989076615<br>Fijo 5265131<br>Correo electrónico <a href="mailto:oafaflores1@hotmail.com">oafaflores1@hotmail.com</a><br>
Correo electrónico <a href="mailto:oscar.oafaflores1@gmail.com">oscar.oafaflores1@gmail.com</a><br></div>