[سامي محمد]

أعتقد أنك تريده بهذه الطريقة

كود :

  Dim i, x As Byte
        Dim Cont As Integer = ListBox1.Items.Count - 1
        Dim M As Integer
        For c As Integer = 0 To Cont
            If i + x = 10 Then
                TextBox1.Text = ListBox1.Items(c - M)
                ListBox1.Items.RemoveAt(c - M)
                M += 1
                Threading.Thread.Sleep(6000)
                i = 0
            End If
            i += 1
        Next