Per ricavare l' anno corrente visualizzandolo in una Textbox possiamo fare:
Prima prendiamo la data corrente prendendola dal Sistema Operativo e la visualizziamo in una prima Textbox
Dim thisYear As Integer
TextBox1.Text = Date.Today
Avendo fatto questo in una seconda Textbox visualizziamo l' anno:
thisYear = Year(TextBox1.Text)
TextBox2.Text = thisYear