fallo en el timer

[oslar]

el caso es que no funciona como yo quisiera y no comprendo porque no lo hace.
la idea es al hacer click se ejecuta el random y le da un valor a i seguidamente el picture box cambia de imagen y esta se debe mantener durante 5 segundos y pasados estos 5 segundos volverse a cambiar pero esto no ocurre asi y nose porke haber si me echais una mano

Código vb:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
 
        VBMath.Randomize()
        i = (Int(Rnd() * 6) + 1)
        Threading.Thread.Sleep(5000)
        PictureBox8.Image = My.Resources.diceclr
        '-----------------------
        'Threading.Thread.Sleep(5000)
 
        Select Case i
            Case 1
                PictureBox8.Image = My.Resources._1_dado
            Case 2
                PictureBox8.Image = My.Resources._2_dado
            Case 3
                PictureBox8.Image = My.Resources._3_dado
            Case 4
                PictureBox8.Image = My.Resources._4_dado
            Case 5
                PictureBox8.Image = My.Resources._5_dado
            Case 6
                PictureBox8.Image = My.Resources._6_dado
        End Select
 
    End Sub
 

[seba123neo]

Hoal, sacale el Sleep(), estas parando la ejecución con eso, debes poner el codigo dentro de un Timer no de un boton y que el Timer tenga intervalo 5000...

saludos.

[oslar]

gracias por tu ayuda,tras romperme la cabeza lo consegui de la forma que tu dices
un saludo