-
Everytime I open my little "Guessing Game" program it always starts out with the same here is the "start button code:
Code:
Private Sub Start_Click()
display.Visible = False
random.Visible = False
random.Text = Int(Rnd * 100)
display.Caption = ""
guess1.Text = ""
guess.Visible = True
End Sub
Anyone know of a way to make it change on the first time also?
-
Code:
Private Sub Start_Click()
Randomize Timer
display.Visible = False
random.Visible = False
random.Text = Int(Rnd * 100)
display.Caption = ""
guess1.Text = ""
guess.Visible = True
End Sub
...should do the trick :D
-
