Rolando imagem automaticamente

[Idelbrandes Amorim]

Estou tentando lista as imagem do banco de dado  automaticamente no picturebox ai tudo bem, porém estou tentando
fazer um loop para lista vou usar com intervalo de tempo para passa de uma em uma as imagem

esta passando normalmente só que o form ficar travado impedindo a digitação no textbox

alguém sabe como resolver isto

 

Private Sub PCRolaImagens()
        Dim repeticao As Boolean = True
        Using con As OleDbConnection = GetConnection()
            con.Open() 'abre a conexao com o banco
            'query de busca
            Dim sql As String = ""
            sql = "SELECT * FROM tblImagensPDV"
            Dim comam As OleDbCommand
            comam = New OleDbCommand(sql, con)
            Dim adapter As OleDbDataAdapter = New OleDbDataAdapter(comam)
            Dim ds As DataSet = New DataSet()
            Try
                adapter.Fill(ds, "tblImagensPDV")
                Dim contagem As Integer = 0
                Do While (repeticao = True)
                    Dim img As String = ds.Tables(0).Rows(contagem).Item("enderecoimagem") '.ToString
                    ImgSalvar.Image = System.Drawing.Bitmap.FromFile(img)
                    Me.Refresh()
                    Threading.Thread.Sleep(3000)
                    contagem += 1
                    If contagem > ds.Tables(0).Rows.Count - 1 Then
                        contagem = 0
                    End If
                Loop
                con.Close()
            Catch ex As Exception
            End Try
        End Using
    End Sub