VISIBLE

    Dim TempoEspera As Integer = 0
    Dim TextoInformativo As String = String.Empty

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        [ô] Define o tempo do timer como 1 segundo. (1000 milisegundos)
        Me.Timer1.Interval = 1000

        [ô] Define o tempo de espera como segundos.
        TempoEspera = 5

        [ô] Define a mensagem de espera a ser informada.
        TextoInformativo = [Ô]Espere {0} {1}...[Ô]

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        [ô] Exibe o label informativo.
        Me.Label1.Text = String.Format(Me.TextoInformativo, Me.TempoEspera, IIf(Me.TempoEspera > 1, [Ô]Segundos[Ô], [Ô]Segundo[Ô]))
        Me.Label1.Visible = True

        [ô] Inicia o objeto timer.
        Me.Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        [ô] Remove 1 segundo do contador.
        TempoEspera -= 1

        [ô] Ajusta o form para iniciar.
        Me.Label1.Text = String.Format(Me.TextoInformativo, Me.TempoEspera, IIf(Me.TempoEspera > 1, [Ô]Segundos[Ô], [Ô]Segundo[Ô]))
        Me.Label1.Refresh()

        [ô] Se o tempo de espera chegar ao fim,efetua as devidas ações.
        If (TempoEspera = 0) Then
            Me.Timer1.Stop()
            Me.Label1.Text = [Ô]Tempo de espera finalizado.[Ô]
            Me.Button2.Visible = True
        End If

    End Sub