Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyRandomGenerator As System.Random
Dim RanNum As Integer
Dim BrojPokusaja As Integer
BrojPokusaja = 0
Do Until (KOJI KOD OVDE TREBA UPISATI?)...