[mrnooo2000]

الاخ السائل بما أنك تستخدم التاريخ الهجرى فكل ما تحتاج اليه هو هذاه الاسطر 
ضعهم فى كود الزر أو حدث تغير قيمة DateTimepicker

كود :

       Dim Months As Integer = DateDiff("m", DateTimePicker1.Value, Today.Date)
       TextBox1.Text = Months \ 12
       TextBox2.Text = Months Mod 12

و اذا كنت تستخدم التاريخ الميلادى و تريد حساب الفارق بالتاريخ الهجرى 
أضف هذين السطرين قبل الكود السابق 

كود :

Dim ci As New Globalization.CultureInfo("ar-SA")
       Thread.CurrentThread.CurrentCulture = ci

جرب و أخبرنى بالنتيجة


جربت هذا الكود لدى لتجربة التاريخين الموجودين فى مشاركتك و كانت النتيجة كما ذكرت 33 سنة و 4 أشهر

كود :

       Dim ci As New Globalization.CultureInfo("ar-SA")
       Thread.CurrentThread.CurrentCulture = ci
       Dim hijri As New UmAlQuraCalendar()
       Dim dt1 As Date = New Date(1406, 6, 1, hijri)
       Dim dt2 As Date = New Date(1439, 10, 15, hijri)

       Dim Months As Integer = DateDiff("m", dt1, dt2)
       TextBox1.Text = Months \ 12
       TextBox2.Text = Months Mod 12