Magic Cube Live Stream

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        aaa = 0
        asa = 0
        TextBox1.Text = 0
        TextBox2.Text = 0
        TextBox3.Text = 0
        TextBox4.Text = 0
        TextBox5.Text = 0
        TextBox6.Text = 0
        TextBox7.Text = 0
        TextBox8.Text = 0
        TextBox9.Text = 0
        Timer1.Start()
    End Sub
    Dim asa As Integer
    Dim aaa As String = 0
    Private Sub trys()
        asa = asa + 1
        If asa = 500 Then
            aaa = 1
            Label8.Text = "crash"
        End If
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Timer1.Stop()
        Dim sis As Integer = 0
        Dim rn As New Random
        Dim value As Integer = 0
jump1:
        trys()
        If aaa = 1 Then
            Exit Sub
        End If
        Label8.Text = 1
        value = rn.Next(1, 10)
        TextBox1.Text = value
jump2:
        trys()
        If aaa = 1 Then
            Exit Sub
        End If
        Label8.Text = 2
        value = rn.Next(1, 10)
        If value = TextBox1.Text Then
            GoTo jump2
        Else
            TextBox2.Text = value
        End If
jump3:
        trys()
        If aaa = 1 Then
            Exit Sub
        End If
        Label8.Text = 3
        value = rn.Next(1, 10)
        If value = TextBox1.Text Or value = TextBox3.Text Then
            GoTo jump3
        Else
            TextBox3.Text = value
        End If
        Label6.Text = TextBox1.Text + +TextBox2.Text + +TextBox3.Text
        If Label6.Text = "15" Then
        Else
            GoTo jump1
        End If
jump4:
        trys()
        If aaa = 1 Then
            Exit Sub
        End If
        Label8.Text = 4
        value = rn.Next(1, 10)
        If value = TextBox1.Text Or value = TextBox2.Text Or value = TextBox3.Text Then
            GoTo jump4
        Else
            TextBox4.Text = value
        End If
jump5:
        trys()
        If aaa = 1 Then
            Exit Sub
        End If
        Label8.Text = 5
        value = rn.Next(1, 10)
        If value = TextBox1.Text Or value = TextBox2.Text Or value = TextBox3.Text Or value = TextBox4.Text Then
            GoTo jump5
        Else
            TextBox7.Text = value
        End If
        Label1.Text = TextBox1.Text + +TextBox4.Text + +TextBox7.Text
        If Label1.Text = "15" Then
        Else
            GoTo jump4
        End If
jump6:
        trys()
        If aaa = 1 Then
            Exit Sub
        End If
        Label8.Text = 6
        value = rn.Next(1, 10)
        If value = TextBox1.Text Or value = TextBox2.Text Or value = TextBox3.Text Or value = TextBox4.Text Or value = TextBox7.Text Then
            GoTo jump6
        Else
            TextBox5.Text = value
        End If
jump7:
        trys()
        If aaa = 1 Then
            Exit Sub
        End If
        Label8.Text = 7
        value = rn.Next(1, 10)
        If value = TextBox1.Text Or value = TextBox2.Text Or value = TextBox3.Text Or value = TextBox4.Text Or value = TextBox7.Text Or value = TextBox5.Text Then
            GoTo jump7
        Else
            TextBox8.Text = value
        End If
        Label2.Text = TextBox2.Text + +TextBox5.Text + +TextBox8.Text
        If Label2.Text = "15" Then
            If TextBox4.Text + +TextBox5.Text < 15 Then
                If TextBox7.Text + +TextBox8.Text < 15 Then

                Else
                    GoTo jump6
                End If
            Else
                GoTo jump6
            End If
        Else
            GoTo jump6
        End If

jump8:
        trys()
        If aaa = 1 Then
            Exit Sub
        End If
        Label8.Text = 8
        value = rn.Next(1, 10)
        If value = TextBox1.Text Or value = TextBox2.Text Or value = TextBox3.Text Or value = TextBox4.Text Or value = TextBox7.Text Or value = TextBox5.Text Then
            GoTo jump8
        Else
            TextBox6.Text = value
        End If

jump9:
        trys()
        If aaa = 1 Then
            Exit Sub
        End If
        Label8.Text = 9
        value = rn.Next(1, 10)
        If value = TextBox1.Text Or value = TextBox2.Text Or value = TextBox3.Text Or value = TextBox4.Text Or value = TextBox7.Text Or value = TextBox5.Text Or value = TextBox6.Text Then
            GoTo jump9
        Else
            TextBox9.Text = value
        End If

        Label5.Text = TextBox4.Text + +TextBox5.Text + +TextBox6.Text
        If Label5.Text = "15" Then
            Label4.Text = TextBox7.Text + +TextBox8.Text + +TextBox9.Text
            If Label4.Text = "15" Then
                Label8.Text = "complete"
                Label3.Text = TextBox3.Text + +TextBox6.Text + +TextBox9.Text
                Label7.Text = TextBox1.Text + +TextBox5.Text + +TextBox9.Text
                Label9.Text = TextBox3.Text + +TextBox5.Text + +TextBox7.Text
                Exit Sub
            Else
                GoTo jump9
            End If
        Else
            GoTo jump8
        End If

    End Sub

End Class