|This is a much improved version of VB slot machine. Instead of
drawing nine shapes, now I draw only three shapes and change their shapes
randomly using the shapes' properties at runtime. I use the function
shape1(0).shape=n to change the shapes, where n is a random number taking the
values 3, 4 and 5, which correspond to a circle, a rectangle and a square.
I also added the amount to bet and the credits that are won. Besides, I added an
item on the menu bar, help, using menu editor.
[Back to VB Sample Programs]