como criar um tempo de espera entre os comandos?

[davisvasconcellos 0]

Quero alterar um label para informar qual ação estará sendo executada. já tentei com sleep e não estou acertando.

seria assim

 

        Label1.Text = "texto1"        System.Threading.Thread.Sleep(3000)       (executa os comandos 1)        Label1.Text = "texto2"        System.Threading.Thread.Sleep(3000)       (executa os comandos 2)        Label1.Text = "texto3"       (executa os comandos 3)

 

 

 

o que está acontecendo é esperar 6 segundos e ir direto para o "texto3" (acredito que execute tão rápido os 3 que só vejo o ultimo)

 

também já tentei assim e não consegui:

 

Public Class Form1    Public Sub Esperar(ByVal QuantosSegundos As UInt16)        Dim Final As Date = TimeOfDay.AddSeconds(QuantosSegundos)        While Not TimeOfDay.Second >= Final.Second            Application.DoEvents()        End While    End Sub    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load        Label1.Text = "texto1"        Esperar(3)        Label1.Text = "texto2"        Esperar(3)        Label1.Text = "texto3"        Esperar(3)    End SubEnd Class

 

 

 

Tem como fazer isso ?

 

Obrigado

 

 

 

criei 3 timers. não sei se é o certo ou se é SeuManuel Developer

 

 

 

 

Public Class Form1    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load        Timer1.Enabled = True    End Sub    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick        Label1.Text = "texto1"        Timer1.Enabled = False        Timer2.Enabled = True    End Sub    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick        Label1.Text = "texto2"        Timer2.Enabled = False        Timer3.Enabled = True    End Sub    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick        Label1.Text = "texto3"        Timer3.Enabled = False    End SubEnd Class

[KhaosDoctor 242]

Também pode ser, não tem problema em criar timers desde que o tempo esteja funcionando.