Random Number is Same!

[Tenny]

Everytime I open my little "Guessing Game" program it always starts out with the same here is the "start button 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?

[crptcblade]

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

[Tenny]

ah ha thank you!