Private Sub tbDate_KeyDown(ByVal sender As System.Object, ByVal e As _
     System.Windows.Forms.KeyEventArgs) Handles tbDate.KeyDown
      ' Prüfen, ob Pfeil hoch oder Pfeil runter gedrückt wurde
      If e.KeyCode = Keys.Up Or e.KeyCode = Keys.Down Then
         Dim position As Integer = tbDate.SelectionStart ' Cursorposition
         Dim value As Integer = 1 ' Anzahl der Tage/Monate/Jahre
         Dim d As Date ' Das Datum
 
         ' Datum parsen
         If Date.TryParse(tbDate.Text, d) Then
            ' Wenn Pfeil runter, dann Tag/Monat/Jahr um 1 verringern
            If e.KeyCode = Keys.Down Then value = -1
 
            If position <= tbDate.Text.IndexOf(".") Then
               ' Wenn Cursor bei den Tagen ist, Tage verändern
               d = d.AddDays(value)
            ElseIf position > tbDate.Text.LastIndexOf(".") Then
               ' Wenn Cursor bei den Jahren ist, Tage verändern
               d = d.AddYears(value)
            Else
               ' Wenn Cursor weder bei Tage noch Jahre ist, Monate verändern
               d = d.AddMonths(value)
            End If
 
            ' Neues Datum in TextBox schreiben und Position wiederherstellen
            tbDate.Text = d.ToShortDateString
            tbDate.SelectionStart = position
         End If
 
         ' Pfeil runter und hoch nicht an TextBox weiterleiten
         e.Handled = True
         e.SuppressKeyPress = True
      End If
   End Sub