Créer une boucle for qui next a chaque click d'un bouton

Bonjour,
Je suis présentement en train de coder un petit programme qui affiche un total de 10 images aléatoirement. Chaque image est affiché une fois. J'aimerais pouvoir faire en sorte que lorsque un autre bouton continuer est appuyé, ma boucle "for i = 0 to 9 " fait une pause jusqu'à ce que le bouton continuer soit appuyé, ce qui lui ferait un "next". Le bouton devra etre appuyé 10 fois afin d'afficher l'ensemble des images. Voici mon code.

Public Class frmChoix
    Dim Random As Integer
    Dim n(9) As Boolean
    Dim i As Integer = 0

    Private Sub btnMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMenu.Click
        frmMenu.Show()
        Me.Hide()
    End Sub

    Sub btnAccepter_Click(sender As Object, e As EventArgs) Handles btnAccepter.Click

        For lCnt As Integer = 0 To n.Length - 1
            n(lCnt) = False
        Next lCnt


        Randomize()
        For i = 0 To 9
Start:
            Random = (Rnd() * 9) + 1


            If Not n(Random - 1) Then

                If Random = 1 Then
                    PictureBox1.Image = My.Resources.bergerallemend1
                    n(Random - 1) = True

                ElseIf Random = 2 Then
                    PictureBox1.Image = My.Resources.bergerallemend2
                    n(Random - 1) = True

                ElseIf Random = 3 Then
                    PictureBox1.Image = My.Resources.dingo1
                    n(Random - 1) = True

                ElseIf Random = 4 Then
                    PictureBox1.Image = My.Resources.dingo2
                    n(Random - 1) = True

                ElseIf Random = 5 Then
                    PictureBox1.Image = My.Resources.husky1
                    n(Random - 1) = True

                ElseIf Random = 6 Then
                    PictureBox1.Image = My.Resources.husky2
                    n(Random - 1) = True

                ElseIf Random = 7 Then
                    PictureBox1.Image = My.Resources.wolf1
                    n(Random - 1) = True

                ElseIf Random = 8 Then
                    PictureBox1.Image = My.Resources.loup2
                    n(Random - 1) = True

                ElseIf Random = 9 Then
                    PictureBox1.Image = My.Resources.fox1
                    n(Random - 1) = True

                ElseIf Random = 10 Then
                    PictureBox1.Image = My.Resources.renard2
                    n(Random - 1) = True
                End If
            Else
                GoTo Start
            End If
        Next

    End Sub

End Class