Please show me how to do this. I want numbers
between 24 and 360 to appear in my label1, at random.
The numbers should divide perfectly (no remainder) into 360.
For example: 24, 30, 60 etc....

Could someone please look at my code and show me where
I'm going wrong?

Thanks for any help.

Dim first As Integer
Dim x As Integer


Private Sub Command1_Click()
Randomize
first = 360 Mod x
first = 0
x = 24 + Int(347 * Rnd())
Label1.Caption = x

End Sub