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?