Code:
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DateTimePicker1.CustomFormat = "yyyy"
        DateTimePicker1.Format = DateTimePickerFormat.Custom
        DateTimePicker1.ShowUpDown = True
    End Sub
    Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, _
                                             ByVal e As System.EventArgs) _
                                             Handles DateTimePicker1.ValueChanged
        'check selected date against past date
        If DateTime.Now.Date.AddYears(-10) > DateTimePicker1.Value.Date Then
            Stop
        End If
    End Sub