Public Class Form45
    Private Sub Form45_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Text = Today.Year
        Label1.Text = Text
    End Sub
End Class