Travando o Form

[igadino 0]

Pessoal alguém sabe como eu faço para destravar o form porque quando o timer esta rodando o forme fica travado.

 

Private Sub PCarregadados()
Dim repete As String = 0
Using con As OleDbConnection = GetConnection()
con.Open()
Dim sql As String = ""
sql = "SELECT * FROM tblImagensPDV"
Dim conec As OleDbCommand
conec = New OleDbCommand(sql, con)
Dim adapter As OleDbDataAdapter = New OleDbDataAdapter(conec)
Dim ds As DataSet = New DataSet()
Try
adapter.Fill(ds)
Dim x As Integer = 0
Do While (repete = 0)
Dim img As String = ds.Tables(0).Rows(x).Item("enderecoimagem").ToString
ImgSalvar.Image = System.Drawing.Bitmap.FromFile(img)
Me.Refresh()
System.Threading.Thread.Sleep(5000)
x += 1
If x > ds.Tables(0).Rows.Count - 1 Then
x = 0
End If
Loop
con.Close()
Catch ex As Exception
' MsgBox("Erro: " & ex.Message)
End Try
End Using
End Sub

 

 

 

 

 

[KhaosDoctor 242]

O uso do System.Threading.Thread.Sleep(5000) vai pausar a execução da sua thread, neste caso do form se você estiver executando dentro dele. Tente passar para um backgroundworker ou um novo processo.