Mensajes

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