AYUDA CON UN CODIGO DE VISUAL BASIC

[ronmslas]

tengo este codigo

Código (vbnet) [Seleccionar] Expandir

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

[Eleкtro]

Antes de nada:

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

randomicamente

Querrás decir aleatoriamente...  

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

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

Código escrito al vuelo:

Código (vbnet) [Seleccionar] Expandir

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!