Cuenta atrás

El evento elapsed del timer se dispara cada vez que se cumple el intervalo
de tiempo configuarado en su propiedad Interval. Lo que podrias hacer es
mantener un contador que cada vez que se produzca el evento reste 1 y
actualice el label. Quedaria algo asi:

'Declarar el contador y el timer

Dim Counter As Int32 = 10

Dim WithEvents _Tmr As New System.Timers.Timer



Private Sub _Tmr_Elapsed(ByVal sender As Object, ByVal e As
System.Timers.ElapsedEventArgs) Handles _Tmr.Elapsed

Counter -= 1

Me.Label1.Text = Counter.ToString

If Counter = 0 Then

MessageBox.Show("Despegue!!")

Me._Tmr.Stop()

End If

End Sub

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

Me.Label1.Text = Counter.ToString

Me._Tmr.Interval = 1000

Me._Tmr.Start()

End Sub

Espero que te sirva
Saludos
Diego