array with timer

hi guys im stuck on how to do a timer on my array so that it displays each full name in my list box every 2 seconds and have the progress bar step each time

Private Sub btn1_Click(sender As System.Object, e As System.EventArgs) Handles btn1.Click
        ProgressBar1.Maximum = 100
        ProgressBar1.Step = 20
        Dim names(4, 1) As String
        names(0, 0) = "john"
        names(0, 1) = "dole"
        names(1, 0) = "Kylie"
        names(1, 1) = "higgins"
        names(2, 0) = "jade"
        names(2, 1) = "tugwell"
        names(3, 0) = "michael"
        names(3, 1) = "straps"
        names(4, 0) = "cyndi"
        names(4, 1) = "beamon"

        lstBox1.Items.Clear()
        For i As Integer = 0 To 4
            lstBox1.Items.Add(names(i, 0) + " " + names(i, 1))
            ProgressBar1.PerformStep()
            

        Next

    End Sub