Getting rid of zero is easy as well. I'm not a VB programmer, but I think this should do:

Code:
Label1.caption = Int( Rnd * (num-1)) + 1
So if you wanted it between 1 and 10, you would put 9 instead of num-1 and it would generate a number between 0 and 9, and then add one to it, thus making it between 1 and 10:

Code:
Label1.caption = Int( Rnd * 9 ) + 1
Hope that helped.

ac