vb.net - VB.net でリストボックスをループして一時停止する

Question

リストボックスの項目をループして、各項目の間にカウントダウンやその他のコードを入れようとしていますが、完全に機能しません。リストボックス項目間で一時停止しません。

次のように動作するはずです。

リストボックスアイテムを取得乱数を取得し、リストボックスアイテムカウントを使用してラベル実行コードを入れますラベルダウン次のアイテムで繰り返します

Private Sub Timer1_Tick() Handles Timer1.Tick

    'loop each item to search
    For i As Integer = 0 To ListBox1.Items.Count - 1

        'code to run based on listbox1
        MsgBox(ListBox1.Items(i))



        'get time to wait
        Dim seconds As String() = TextBox1.Text.Split("-")

        Dim snum1 As Integer = seconds(0)
        Dim snum2 As Integer = seconds(seconds.Length - 1)
        Dim RandomClass2 As New Random()
        Dim RandomNumber2 As Integer

        If snum2 < snum1 Then
            snum2 = snum1
        End If

        RandomNumber2 = RandomClass2.Next(snum1, snum2)
        Label7.Text = RandomNumber2 & " seconds"

        ' MsgBox(RandomNumber2 & " seconds")
        timeLeft = RandomNumber2


        If timeLeft > 0 Then

            timeLeft -= 1
            Label7.Text = timeLeft & " seconds"
        Else
            Timer1.Stop()
            Label7.Text = "---"

        End If


    Next

End Sub