Código vb de cuenta regresiva

Código del programa de cuenta regresiva de diez segundos:

Dim N As Integer

Private Sub Form_Load()

N = 10

Timer1.Interval = 1000

Timer1.Enabled = True

Fin Sub

Sub Timer1_Timer() privado

N = N - 1

Si N > 0 Entonces

Label1.Caption = N

De lo contrario

Label1.Caption = "El tiempo es arriba"

Timer1.Enabled = False

Finalizar si

Fin Sub