[C con Clase] ayuda

[Oscar Flores]

Tengo este codigo
quisiera saber que funsion cumple cada apartado
y si es posible por que no me funciona uno de los formularios

pues este es el error que me sale cuando le doy al formulario Juego_adivina

Private Sub probar_Click()
x = x - 1
If x > 0 Then
    If mi_numero > adivina Then
    menor.Show
    Else
        If mi_numero < adivina Then
        mayor.Show
        Else

        felicidades.Show
        End If
    End If
Else
    intentos.Show
    mi_numero = ""
    Randomize
    adivina = Int((50 - 1 + 1) * Rnd + 1)
    x = 5
End If
End Sub



Private Sub Command1_Click()
Form1.Hide
frmSplash.Show
mi_numero = ""
Randomize
adivina = Int((50 - 1 + 1) * Rnd + 1)
End Sub

Private Sub Form_Load()
Randomize
adivina = Int((50 - 1 + 1) * Rnd + 1)
x = 5
End Sub

Private Sub Label4_Click()

End Sub

Private Sub nuevo_Click()
Form1.Hide
frmSplash.Show
mi_numero = ""
Randomize
adivina = Int((50 - 1 + 1) * Rnd + 1)
End Sub

Private Sub probar_Click()
x = x - 1
If x > 0 Then
    If mi_numero > adivina Then
    menor.Show

    Else
        If mi_numero < adivina Then
        mayor.Show
        Else

        felicidades.Show
        End If
    End If
Else
    intentos.Show
    mi_numero = ""
    Randomize
    adivina = Int((50 - 1 + 1) * Rnd + 1)
    x = 5
End If

End Sub

Private Sub salir_Click()
Resp = MsgBox(vbCrLf & "Confirma que desea salir?", vbQuestion + vbYesNo +
vbDefaultButton2, "Salir")

If Resp = 6 Then

End

Else


End If

End Sub
Muchas gracias de antemano

-- 
Oscar Agustin Flores Arana.
Lima - Perú
Móvil Nextel 994122895
CD Nextel 412*2895
RPC Claro 989076615
Fijo 5265131
Correo electrónico oafaflores1 en hotmail.com
Correo electrónico oscar.oafaflores1 en gmail.com
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://listas.conclase.net/pipermail/cconclase_listas.conclase.net/attachments/20101012/8f5ea396/attachment.html>