ما هو كود التحقق من العمر - نسخة قابلة للطباعة

كود :

Public Class Form1

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        With ComboBox1

            .Items.Add("رخصة السياقة")

            .Items.Add("بطاقة.ت.الوطنية")

            .Items.Add("جواز السّفر")

        End With

    End Sub

    Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged

     If DateTimePicker2.Value > Today Then

            DateTimePicker2.Value = Today

            TextBox1.Text = vbNullString

            MsgBox("لا يمكن أن يكون تاريخ إصدار الوثيقة أكبر من التاريخ الحالي ...  فضلاً أدخل قيمة منطقية معبّرة عن تاريخ صحيح")

            Exit Sub

            DateTimePicker2.Focus()

            DateTimePicker2.Select()

        ElseIf ComboBox1.Text = "رخصة السياقة" And (Date.Now.Year - DateTimePicker2.Value.Year) < 2 Then

            MsgBox("غير مصرّح لك باستعمال رخصة السياقة أقل من عامين من تاريخ إصدارها")

            Exit Sub

            TextBox1.Text = vbNullString

            DateTimePicker2.Focus()

            DateTimePicker2.Select()

        Else

            TextBox1.Text = DateTimePicker2.Text

        End If

    End Sub

    Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged

        If Date.Now.Year - DateTimePicker1.Value.Year < 20 Then

            MsgBox("لا يمكن إستكمال عقد الكراء .. يجب أن يكون العمر فوق العشرين عاما")

            Exit Sub

            DateTimePicker1.Focus()

            DateTimePicker1.Select()

        End If

    End Sub

End Class