Mover Label y abrir otro form al finalizar con un Sub [VB.Net]

Este codigo estaba escrito en Visual Basic 6, por el colega Novato_Xp.
Se modifico para que realize la misma funcion en .NET, el codigo no es tan distinto al original pero tiene algunos cambios interesantes.
Se coloca un label, 2 timer's y dos formularios.
Todos con nombre por default.

Al llegar al valor establecido en :

If Label1.Left >= 200 Then

Comenzara el proceso de cierre.

Acá el codigo reescrito en Visual Basic.NET (Version 2012)

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 100 'establecemos intervalo del timer
        Label1.Text = Year(Now) 'aplicamos el año actual segun el sistema al label
    End Sub
    Private Sub Comprobar()
        Form2.Show() 'abrimos form 2
        Me.Close() ' cerramos
        Me.Dispose() ' descargamos form 1
    End Sub
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Label1.Left >= 200 Then 'comprueba posicion
            Timer1.Stop() 'detenemos
            Timer2.Start() 'iniciamos timer 2
        End If
        Label1.Left = Label1.Left + 10 ' corre label
    End Sub
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Call Comprobar() 'llamamos sub que realize cierre y apertura del form
    End Sub
End Class

Espero sirva, saludos.