Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox2.Text = Format(DateTimePicker1.Value, "dd")
TextBox3.Text = DateTimePicker1.Value.Month
TextBox4.Text = DateTimePicker1.Value.Year
End Sub
End Class