|
Do procedury form1_load stačí přidat příkaz Randomize(), který způsobí že se budou generovat náhodné čísla při každém spuštění programu jinak.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = CStr(Int(Rnd() * 100))
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Randomize()
End Sub
|