Foro de elhacker.net

tengo este codigo

 Dim x As Integer
        x = Int(Rnd() * 10)
        Select Case x
            Case 0
                PictureBox1.Image = My.Resources._1
            Case 1
                PictureBox1.Image = My.Resources._2
            Case 2
                PictureBox1.Image = My.Resources._3_1
            Case 3
                PictureBox1.Image = My.Resources._4
            Case 4
                PictureBox1.Image = My.Resources._5
            Case 5
                PictureBox1.Image = My.Resources._6
            Case 6
                PictureBox1.Image = My.Resources._7
            Case 7
                PictureBox1.Image = My.Resources._8
            Case 8
                PictureBox1.Image = My.Resources._9
            Case 9
                PictureBox1.Image = My.Resources._10
 
 
 
        End Select

la imagenes contienes elementos del 1 al 10 es decir la primera tiene 1 manzana la segunda 2 y asi asta 10  y esas imagenes se generan randomicamente ahora necesito que un textbox pueda ingresar la cantidad de elementos que se visualiza en cada  imagen y al darle click en un checkbox me verifique si es el numero correcto de elementos
MUCHAS GRACIAS POR SU AYUDA

Antes de nada:

1. Es obligatorio formatear adecuadamente el código usando las etiquetas GeShi.
2. Está prohibido duplicar posts.

---

Querrás decir aleatoriamente...  :xD


Puedes usar una variable para mantener una referencia al índice/número de la imagen actual.

Código escrito al vuelo:

Private ReadOnly rnd As New Randomize()
Private curIndex As Integer
 
Sub...
	Dim index As Integer = rnd.Next(1, 10)
 
	Dim images as Image() = 
	    {
	        My.Resources._1, My.Resources._2, My.Resources._3_1, My.Resources._4, My.Resources._5,
	        My.Resources._6, My.Resources._7, My.Resources._8, My.Resources._9, My.Resources._10
	    }
 
	PictureBox1.Image = images((index - 1))
	Me.curIndex = index
End sub
 
 
Sub...
	If (TextBox1.Text = Cstr(Me.curIndex)) Then
	    MessageBox.Show("Número correcto!.")
	End If
End sub

Saludos!