Arrêt après la 10ème question sur un random (Vb2010)

Bonjour,

Je suis actuellement sur un projet avec des questions/réponses.

Je voudrais savoir, si il existe une commande qui arrête juste à la 10ème question,par exemple.

voici mon code:

 Dim result As DialogResult
Dim result2 As MsgboxResult

If Label5.Text = Val(10) Then
            Label3.txt = "c'est fini"
            Timer2.Start()
            Timer2.Interval = 5000
            Timer2.Stop()
            Label3.Visible = False
            MsgBox("Voulez vous refaire une autre partie ", vbYesNo, "p")
             If result = DialogResult.Yes Then
                   Label5.text=0
                   InitialiserNouvelleQuestion() 
              ElseIf result = DialogResult.No Then
                         MsgBox("Voulez-vous quitter", vbYesNo, "p")
                          If result2=MsgboxResult.yes then
                                 Me.close
                          ElseIf result2=MsgboxResult.yes then
                                Label5.text=0
                                InitialiserNouvelleQuestion()   
                         End If 
               EndIf     
ElseIf            
  InitialiserNouvelleQuestion()
End If

mais cependant, il y a beaucoup d'erreurs

voici image ci-dessous:
http://img15.hostingpics.net/pics/803208152660038299917257851054748978n.jpg


Et voici un bout de mon code de mon programme:

Private Sub Verbes_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.TabIndex = 0
        InitialiserNouvelleQuestion()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Verification()
    End Sub
    Sub Verification()
        If TextBox1.Text = Me.réponses(Me.numéroQuestion) Then
            Label3.Visible = True
            Label3.ForeColor = Color.Green
            Label3.Text = "Correct"
            Label5.Text = Val(Label5.Text) + 1
            Timer1.Start()
            Timer1.Interval = 1000

        Else
            Label2.Visible = True
            Label2.ForeColor = Color.Red
            Label2.Text = " Réponse Incorrecte"
            MsgBox("Votre réponse est fausse, Veuillez réessayer " & vbLf & "Your answer is wrong, please try again", vbOKOnly, "Erreur-Error")
            TextBox1.Focus()
            TextBox1.Clear()
            Label2.Visible = False
            Me.nbTentatives = Me.nbTentatives + 1

            If Me.nbTentatives = 3 Then
                MsgBox("La Réponse est:" & vbLf & "The Answer is: " & Me.réponses(Me.numéroQuestion), 32, "Réponse")
                Timer1.Start()
                Timer1.Interval = 900
            End If
        End If

    End Sub

    Private Sub InitialiserNouvelleQuestion()
        Me.nbTentatives = 0
        Me.numéroQuestion = random.Next(0, questions.Length - 1)
        Label1.Text = Me.questions(Me.numéroQuestion)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Accueil.Dispose()
    End Sub
    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Chr(13) Then
            Verification()
            e.Handled = True
        Else
            e.Handled = False
        End If
    End Sub


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Stop()
        TextBox1.Clear()
        Label3.Visible = False
        InitialiserNouvelleQuestion()
    End Sub

Merci de votre compréhension