First Makro! First Error!

Hi Folks !

Now i got a Book VB for dummies and wrote a first small makro:

Sub neue1()

Dim size1, size2, size3, size4, color1, color2, color3, color4
Randomize
size1 = Int((20 * Rnd) + 1)
size2 = Int((20 * Rnd) + 1)
size3 = Int((20 * Rnd) + 1)
size4 = Int((20 * Rnd) + 1)
color1 = Int((100 * Rnd) + 1)
color2 = Int((100 * Rnd) + 1)
color3 = Int((100 * Rnd) + 1)
color4 = Int((20 * Rnd) + 1)
Dim s5 As Shape
Set s5 = ActiveLayer.CreateRectangle(size1, size2, size3, size4, 0, 0, 0, 0)
s5.Fill.UniformColor.CMYKAssign color1, color2, color3, color4

End Sub



It creates a rectangle with random size and color. It works, but sometimes
the error occures: The sides of the object cannot be 0.

What is my Mistake?