i have this code that i'm making a dice game with 6 dice. I can't get one command button to roll all of them. when i use this code it just gives me a compile error: NEXT witout FOR . on the NEXT inCount before picDieThree
can someone help me

Private Sub Command1_click()
'Player One (Die One)
'Definitions
Dim intShow As Integer
Dim intCount As Integer
'Roll Dice
Randomize Timer
intShow = Int((5 * Rnd))
For intCount = 0 To intShow
picDieOne(intCount).ZOrder (0)
Next intCount
picDieTwo(intCount).ZOrder (0)
Next intCount
picDieThree(intCount).ZOrder (0)
Next intCount
picDieFour(intcout).ZOrder (0)
Next intCount
picDieSix(intCount).ZOrder (0)

thanks Zayn Kalyan