Mudando imagem

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

Existe outro componente que substitui o  "System.Threading.Thread.Sleep(5000)" ele suspende as atividade do form.

Código:

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



Olá, a resposta está na mensagem do nosso colega Silvio, no tópico abaixo:
https://www.maximoaccess.com/t23898-gerar-data-de-vencimento
Abraço