Mudar Imagem no picturebox Travando o Form

[igadino]

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

estou usando o visual studio 2012

 

Private Sub PCarregadados()
      Dim repete As Boolean = True
        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 = True)
                    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

Editado Janeiro 28, 2016 por igadino