Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim n1, n2, n3, n4, z, quante As Integer

        quante = 5
        For z = 1 To 5
sel:
            'sel primo num: n1= 1/52
            Do
                Randomize()
                n1 = Int(Rnd() * 52)
            Loop Until n1 >= 1 And n1 < 53

            'sel secondo num: n2= 2/60
            Do
                Randomize()
                n2 = Int(Rnd() * 59)
            Loop Until n2 > 1 And n1 < 60
            If n2 <= n1 Then GoTo sel
            'sel terzo num: n3= 4/78
            Do
                Randomize()
                n3 = Int(Rnd() * 77)
            Loop Until n3 > 3 And n3 < 78
            If n3 <= n2 Then GoTo sel
            If n3 <= n1 Then GoTo sel

            'sel quarto num: n3= 4/78
            Do
                Randomize()
                n4 = Int(Rnd() * 82)
            Loop Until n4 > 4 And n3 < 82
            If n4 <= n3 Then GoTo sel
            If n4 <= n2 Then GoTo sel
            If n4 <= n1 Then GoTo sel



            tb.Text = (n1 & " " & n2 & " " & n3 & " " & n4) & vbCr





            Console.Beep()
            Dim Riga As String
            Riga = (n1 & " " & n2 & " " & n3 & " " & n4)



            Dim sw As New IO.StreamWriter("c:\prova.txt")
            sw.Write(Riga)
            sw.Close()


            Process.Start("notepad.exe", "c:\prova.txt")

        Next z
    End Sub