[VB] Temporizzare un WHILE ................

[w_t]

In VB.NET,

E' possibile temporizzare un ciclo WHILE ???

Esempio:

            conn.Open()
            Dim comm As New OleDbCommand("SELECT * FROM Teble", conn)
            Dim read As OleDbDataReader = comm.ExecuteReader
            Dim li As ListViewItem
            While read.Read()

            Dim x As String = read("Campo")

            If x = 1 Then
            MsgBox(1)
            End If

            End While
            conn,Close()

vorrei che la lettura di read() avvenisse ogni 1 secondo, fino a finire tutto il contenuto della tabella, in protica un normalissimo ciclo WHILE ma con lettura temporizzata ad 1 secondo,

come posso applicare il Timer???