Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
        Dim DateTime As Date = DateTimePicker1.Value.ToShortDateString

        Dim dataD As String = DateTime.ToString("dd")
        Dim dataM As String = DateTime.ToString("mm")
        Dim dataY As String = DateTime.ToString("yyyy")
        TextBox3.Text = dataD & "/" & dataM & "/" & dataY

    End Sub