Test Foro de elhacker.net SMF 2.1

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.

---

Cita de: ronmslas en 28 Febrero 2016, 21:11 PMrandomicamente

Querrás decir aleatoriamente...  :xD

Cita de: ronmslas en 28 Febrero 2016, 21:11 PMahora 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:
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!