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:
Ver originalPrivate 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