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