Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim rand As New Random(CInt(Date.Now.Ticks And Integer.MaxValue))
        Dim TestadiSerie1 As Integer = rand.Next(1, 3)
        t1.Text = TestadiSerie1.ToString
        Dim TestadiSerie2 As Integer = rand.Next(1, 3)    
        t2.Text = TestadiSerie2.ToString
        Dim SecondaFascia1 As Integer = rand.Next(3, 5)
        n1.Text = SecondaFascia1.ToString
        Dim SecondaFascia2 As Integer = rand.Next(3, 5)
        n2.Text = SecondaFascia2.ToString



    End Sub