Dim sdt As Integer
 
    Private Sub DateTimePicker1_ValueChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles DateTimePicker1.ValueChanged
        If DateTimePicker1.Value.Day.ToString.Length = 2 AndAlso _
        DateTimePicker1.Value.Day <> sdt Then
            SendKeys.SendWait("{RIGHT}")
            sdt = DateTimePicker1.Value.Day
        End If
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov