Visual Basic.NET - Me puede decir alguien que estoy haciendo mal '

necesito saber si alguien me puede decir que estoy haciendo mal en este codigo. lo que quiero conseguir es que al pulsar el boton se me inicialice el timer saque unas imagenes de forma aleatoria y a los x segundos pare y realize lo que dice el boton que es mostrar una imagen de forma aleatoria
el del timer es este
Timer1.Enabled = True
imagenseleccionada4 = CInt(Int(numimages * Rnd() + 0))
imagenseleccionada5 = CInt(Int(numimages * Rnd() + 0))
imagenseleccionada6 = CInt(Int(numimages * Rnd() + 0))

pict1.Image = a(imagenseleccionada4)
Pict2.Image = a(imagenseleccionada5)
Pict3.Image = a(imagenseleccionada6)
y el del boton este
'Timer1.Enabled = False//comentario

gracias

Timer1.Enabled = False
pict1.Text = ""
Pict2.Text = ""
Pict3.Text = ""
Label4.Text = ""
coste = coste + 30
Label6.Text = "Llevas gastado: " & coste & " €"
Timer1.Enabled = False
Randomize() 'funcion randomize
imagenseleccionada = CInt(Int(numimages * Rnd() + 0))
imagenseleccionada2 = CInt(Int(numimages * Rnd()) + 0)
imagenseleccionada3 = CInt(Int((numimages * Rnd()) + 0))

pict1.Image = a(imagenseleccionada)
pict1.Text = imagenseleccionada
Pict2.Image = a(imagenseleccionada2)
Pict3.Image = a(imagenseleccionada3)
If pict1.Text = "0" Or Pict2.Text = "0" Or Pict3.Text = "0" Then ' se comprueba que se cumpla la condicion

Label4.Text = "PREMIO HAS GANADO 20 EUROS" ' se muestra un mensaje
premio = premio + 20 ' se acumula el premio
Label7.Text = "Total premio recaudado: " & premio & " €" ' se muestra el premio recaudado
End If
recaudacion = coste - premio ' se ve la recaudacion que tiene el dueño de la maquina
Label8.Text = "La recaudacion obtenida es: " & recaudacion