[عبد العزيز البسكري]

هذا مثال أخي الكريم ..

كود :

   Private Sub DateTimePicker1_KeyUp(sender As Object, e As KeyEventArgs) Handles DateTimePicker1.KeyUp
       TextBox1.Text = DateTime.Now.Year - DateTimePicker1.Value.Year
   End Sub